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SPINNAKER 

EDUCATIONAL CARTRIDGES 
Cartridges workwth afl Atari 8- bet Conrputers 

• Kindercomp • Delta Drawing 

• Fraction Fever • Kids on Keys 

• Alphabet Zoo 

• Story Machine $ Q 50 



HOT DISK TITLES 

• Video Title Shop 

• ChessMaster 2000 

• Alternate Reality the City 

• Alternate Reality Dungeon 

• Tomahawk (64K) .... 

• Bismark $ |2 e 



WORD PROCESSORS 

Bank Street Writer Disk $17.50 

Cut & Paste Disk $17.50 

AtariWriter Cartridge $29.95 

DATA BASE 

Data Perfect by LJK is a high-powered 
generaJ purpose data-base for use in dozens 
of applications. Create your own mailing lists, 
Lousiness data base, etc $CALL A 



800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components $28.50 

800/400 MODULES 
NEW PARTS COMPLETE WITH ICS 

• CX853 16K RAM MODULE .... $9.50 

• 800 MAIN (MOTHER) BOARD . $9.50 

• 800/400 CPU Module with GTIA $9.50 

• 800 10K "B" O.S. MODULE . . . $9.50 

• 400 MAIN (MOTHER) BOARD . $9.50 

• 400 POWER SUPPLY BOARD $9.50 
■ 800 POWER SUPPLY BOARD $14.50 

INTEGRATED CIRCUITS 



• C0 14795 . 

• C0 14805 . 

• C0 12296 . 

• C0 10745 . 

• C0 14377 . 

• CO 60472 . 

• C0 12298 . 

• C012399B 

• C012499B 

• C014599B 

• C0 14806. 

• C0 10750 . 

• C0 12294. 

• C0 10444 . 

• C021697 

• C061991 

• C061598 . 

• C061618 

• C024947 



. $4.50 
. $4.50 
. $4.50 
. $4.50 
. $4.50 
.$4.50 
. $4.50 
$4.50 
$4.50 
$4.50 
. $4.50 
. $6.50 
. $8.50 
. $8.50 
$15.00 
$15.00 
$20.00 
$20.00 
$15.00 



1050 ICS 

• U7 - 6532 $6.50 

• U8 - 6810 $4.50 

• U9 - 6507 $4.50 

• U10 ROM $19.50 

• U13 2793 $19.50 

• U5 LM2917 $8.50 

All other IC's 
$3.75 each 
Specify by Socket# 

850 INTERFACE 
12 Piece Chip set. 
Includes all plug in 
IC's except ROM. 
Replacement fixes 
vast majority of 850 
failures $19.50 



1050 MECHANISM 



Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 



Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 
ments required $^*^5o 



VISICALC 

SPREADSHEET 

Unleash the computing power $ j ry^^ 

of your 8 bit Atari withVisicaic. ] y 

Compute everything from home ni c i< 
finances to high powered finan- 
cial projections. Hundreds of uses. 



XL 40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairsl Set 
contains one each of the A . ^ nc | 
following: CPU, GTIA, $ 1 C< I 
ANTIC, PIA AND POKEY. *^ 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
800, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISCELLANEOUS 

1027 INK ROLLER $6.50 

13 Pin Serial I/O Cable $5.95 

ACE Joystick $7.95 

800XL RF Modulator .... $9.50 

1050 Track 0 Sensor $8.50 

2793 1050 Controller IC . . . $19.50 

U.S. Doubler $29.95 

SPARTADOS Tool-Kit . . . $32.95 
Paddle Controllers (Pair) . . . $6.50 
400 3 Piece Board Set ... . $19.50 

Fastchip for 800/400 $15.50 

Rambo XL w/o RAM IC's $39.95 
850 or PR Modem Cable . . $14.50 
850 or PR Printer Cable . . . $14.50 

Printer Interface $39.95 

I/O 13 Pin PC connector . . . $4.50 
I/O 13 Pin Cable end plug . . $4.50 
ST 6' Disk Drive Cable . . . $14.00 
ST Monitor Cable connector $5.50 
ST Drive Cable plug end ... . $6.50 
5 VA" Drive Cable $23.95 



TOWER PACKS 

Exact replacement trans- & . . - ■ 

former for 800/400. 1050 $ 1/1501 

810, 1200XL, 850.XF551 & I *+ I 
1020 units. Part *CQ17945. 

XL/XE SUPPLY 

Power Pak for 800XL.600XL $ 
130XE, 65XE & XE Game. * 



23 



.00 



THE BOOKEEPER 
AND CX85 KEYPAD 

You get both Atari's 8 bit 
professional bookeeping $ HQ 95 
system and the handy CX85 1 ^ 
numeric keypad for one low 4 DISK 
price. Packages factory sealed. SET 



KEYBOARDS 

New and conrplete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 $40.00 

800XI . $29.50 

400 $12.50 



COMPUTER BOOKS 

Atari Playground Workbook $7.95 
HackerBook Tricks & Tips $5.00 

Inside Atari Basic §5.00 

Atari Basic Ref. manual. $5.00 
How to Atari 6502 Program $5 .00 
Write Your Own Games. $5.00 
Programmers Ref. Guide $14.95 
Assembly Language Guide $21.95 
XE Users Handbook .... $21.95 
XL Users Handbook .... $21.95 
Atari Basic Faster & Better $22.95 
Your Atari Computer $17.95 

SERIAL I/O CABLE 

High Quality, 13Pin $5.95 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers. . . $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal $7.50 

Board & all plug in IC's . . . $39.50 

PR: CONNECTION 

Serial/Parallel Interface for connecting 
modems and printers $65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/ 1200XL $15.00 

ANIMATION STATION 

Graphics Design Tablet $74.95 

DISK DRIVE REPAIR 

Flat service rate 1050 $75.00 

Flat service rate 810 $69.50 

Include $7.00 return shipping & Ins. 



RaSdgSoSfflSS^^nputers 

J PAC-MAN Cartridge $4.00 

DELUXE INVADERS Cartridge. ... $4.00 
JOURNEY TO THE PLANETS Cart $4 00 

DONKEY KONG Cartridge $5 00 

KINDERCOMP Cartridge $9.50 

STORY MACHINE Cartridge $9.50 

MILLIPEDE Cartridge $10.00 

CAVERNS OF MARS Cartridge . $14.50 
ATARIWRITER Cartridge $29 95 

I TURMOIL Cartridge $5.00 

CROSSFIRE Cartridge $7.50 

SPRINGER Cartridge $7.50 

LINKING LOGIC (Fisher- Price) Cart $9.50 
ADVENTURE CREATOR Cartridge $12.50 

ZONE RANGER Cartridge $12.50 

SILICON WARRIOR Cartridge .... $12.50 
MATH ENCOUNTER Cartridge . . . $12.50 

UP FOR GRABS Cartridge $12.50 

PILOT LANGUAGE Package $17.50 

SPARTADOS- X Cartridge $59.95 

ACTION O S S Cartridge $59.95 

MAC-65 O.S.S. Cartridge $59.95 

BASIC XE O.S.S. Cartridge . . . $59.95 

R-TIME 8 Cartridge $56.95 

BASIC XL O.S.S. Cartridge . . . $49.95 
DISK TITLES 

VISICALC Spreadsheet $19.95 

BOOKEEPER & CX85 KEYPAD . . $19.95 

MISSION ASTEROID Disk $5.00 

DAVID'S MIDNIGHT MAGIC Disk $5.00 

SPIDER MAN Disk $5.00 

HUMAN TORCH* THE THING .. . $5.00 

MUSICAL PILOT Ed. Disk $5.00 

COMPUTATION Disk $5.00 

DEBUG Childware Disk $5.00 

CRYSTAL RAIDER Disk $5.00 

DISPATCH RIDER Disk $5.00 

MASTER CHESS Disk $5.00 

SPEED KING Disk $5.00 

LAST V- 8 Disk $5.00 

CHAMBERS OF ZORP Disk $5.00 

PATHFINDER Disk $5.00 

MATCH RACER Disk $5.00 

ALIEN AMBUSH Disk $5.00 

WOMBATS 1 Adventure Disk .... $5.00 

NINJA Disk $7.50 

ELECTRA-GLIDE Disk $7.50 

SPORTS SPECTACULAR Disk . . . $7.50 

THE GAMBLER Disk $7.50 

STRATOS Disk $7.50 

FUN IN NUMBERS Disk $7.50 

MIND MAZES (Educational) $7.50 

MONEY TOOLS (Financial Utility). . $9.95 

DIG DUG Disk $9.95 

REPTON Disk $9.95 

REARGUARD Disk $9.95 

TECHNA-COLOR DREAM Disk . . . $9.95 

FREAKY FACTORY Disk $9.95 

LASER HAWK Disk $9.95 

ROCKET REPAIRMAN Disk $9.95 

CEST'E LA VE Disk $9.95 

WOMPER STOMPER Disk $9.95 

OLIN EMERALD (Jr.. Adv.) $9.95 

MOVIE MAKER (Graphics) $9.95 

FINANCIAL COOKBOOK $9.95 

SONGWRITER $9.95 

COUNTING 4 ADDING with Tink . . $9.95 

PROTECTOR Disk $9.95 

CHESSMASTER 2000 $12.50 

GRANDMA'S HOUSE (Educational) $12.50 

DROPZONE Disk $12.50 

CASTLE WOLFENSTEIN Disk . . . $12.50 
BEYOND CASTLE WOLFENSTEIN $12.50 

ALIANTS Disk $12.50 

MOUSE QUEST Disk(64K) $12.50 

ELECTRONIC DRUMMER Disk . . $12.50 

STOCK MARKET Game $12.50 

PIRATES OF THE BARBARY COAST $12.50 

NICKERBOCKER Disk $12.50 

BOULDER DASH Construction Set $14.95 
MIDWAY BATTLES War Game . . $14.95 
MOONMIST (Infocom Adventure) $14.95 
MIND SHADOW Adventure 64K . . $14.95 

HACKER Adventure $14.95 

SEA STALKER Adventure $14.95 

STATION FALL Adventure $14.95 

HOLLYWOOD HI JINKS Adventure $14.95 
LURKING HORROR Adventure . . . $14.95 

SSI 50 MISSION CRUSH $14.95 

SSI BATTALION COMMANDER . . $14.95 

SSI PANZER GRENADIER $14.95 

SSI FIELD OF FIRE $14.95 

SSI GEMSTONE WARRIOR $14.95 

MASTERTYPE (Typing Tutor) . . . $15.00 

BANK STREET WRITER $17.50 

CUT & PASTE W.P. Disk $17.50 

SPARTADOS CONST SET .... $39.50 

DATASOFT DISKS 

VIDEO TITLE SHOP $12.50 

ALTERNATE REALITY (The City) $12.50 
ALTERNATE REALITY The Dungeon $12.50 

ZORRO Disk $9.95 

SARACEN Disk $9.95 

GUNSUNGERDisk (64K) $9.95 

TOMAHAWK Helicopter Game 64K $12.50 
THEATER EUROPE War Game. . $12.50 

BRUCE LEE Disk $12.50 

CROSSCHECK Disk $12.50 

MERCENARY Disk $12.50 

THE GOONIES Disk $12.50 

CONAN Disk $12.50 

i NEVER ENDING STORY (64K) . . $12.50 , 
L221 BAKER STREET (64K) .... $12. 50 J\ 



AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Repair Center: 2098 Pike Ave., San Leandro, Ca. 94577 

Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $18.50. No 
personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders under 
$150.00. Add $2.75 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All items 
guaranteed 30 days from date of delivery. All sales final.. 

Prices subject to change vMthout notice. Send SASE lor tree price list At»i is a rag tademark of At* i Corp. 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 
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Subscribe to START magazine with disk 



Tutorials on START Disk brings 
the expertise of top ST program- 
mers right into your computer 



Manage the power of your 
ST and make your computing 
more enjoyable with utilities 
on STart disks. 



Outstanding animation and 
graphics from the best ST artists 
around, from START Disk right 
on to your screen. 

Stimulate your imagination and 
your reflexes with games on 
START Disk! How-to tutorials 
show you how to write your 
own pulse-pounding games. 




Subscribe May call 1-800-234-7001 

Use your Visa or MasterCard 
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MINIMON FIX 



The program MiniMon (Antic, April 
1989), will not run on my Atari 1200XL 
as written. For an easy fix, change Line 
1140 in Listing #1, MINIMON. BAS. The 
seven boldfaced numbers below are the 
only ones to change: 

1140 DATA 204096132205032O662 
422011601440020731281620001421820 
02164205096132205032245241164205 
096125155 

Now MINIMON. BAS will create a ma- 
chine language file called MINIMON.EXE 
that will work on an 800 or 1200XL. The 
new version will not work an an XL/XE 
without a translator. 

Paul Alhart 
Lompoc, CA 

Antic doesn't have a working 1200XL to 
check this on, but Paid Alhart has pub- 
lished a number of programs and Tech 
Tips in this magazine. — ANTIC ED 

DO 8-BITS SWIM? 



I am presently the meet manager of our 
local swim club. Our club just yesterday 
finished hosting the Provincial Champi- 
onships and I found the paperwork very 
time-consuming. Id like to find a program 
I can use on my 130XE, one that will store 
information on the swimmers, seed the 
swimmers, produce time cards, and print 
the information in a program format. The 
only such program I can find is for IBM 
PCs. Is there one I can use on my Atari 
8-bit? 

Jerry Parsons 

Gander, Newfoundland, 

Canada 

A spreadsheet program such as SynCalc 
could hold the information on swim- 
mers, do some mathematical figuring for 
you, and print reports of the informa- 
tion. Talk to members of your local users 
group about available spreadsheets — or 
even finding a BASIC programmer who 
could write a custom program designed 
specifically for your set-up. — ANTIC ED. 



BEGINNER'S BLUES 

Sometimes I feel like a man sitting in a 
well-equipped garage feeling frustrated be- 
cause I don't know how to use the tools. 
That's my situation with these cotton- 
pickin' computers and magazines I've 
picked up. 

Don't get me wrong. . .since getting an 
Atari XE Game System for Christmas in 87 
there's been a lot of time spent at the 
keyboard — but the potential is so much 
greater than the performance. I started 
reading Antic in early 1988, but I need 
the elementary stuff to lead the way, and 
it's been hard to find. I would like to know 
more about the different BASICS, where 
I can find a small business inventory pro- 
gram, how to get a word processor that 
fits me. 

I hope you're thinking of us newcomers 
who aren't in school any longer. Give us 
a helping hand so we can catch up with 
you. 

Bob White 
Ferndale, MI 

It's always hard to cover the needs of all 
our readers. Many of the topics you 're in- 
terested in have been covered in previous 
issues, and most back issues are still 
available. If you don't know what issue 
you want, the ANTIC ONLINE Index on 
CompuServe is the most complete re- 
source we can offer. You can search for 
articles, reviews and programs by title, 
subject, date and author. Very often, the 
complete text of the article is included in 
the index itself. 

Users groups are also an excellent 
source of help, and there are several ac- 
tive users groups in Michigan who pro- 
duce a large joint newsletter, the Atari 
Interface Magazine. You can write 
them at Unicom Publications, User 
Group Information, 3487 Braeburn Cir- 
cle, Ann Arbor, MI 48108. Send them your 
address, phone number, and the kind of 
computer you own, so they can link you 
up with the appropriate group.— ANTIC 
ED 

continued on next page 
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DOS, 800 & XF551 



It was with great sadness that I read your 
article on DOS-XE (March, 1989). I eagerly 
awaited Atari's new DOS, only to find out 
that it would not work with my old relia- 
ble 800. Playing around with the cartridge 
door switch so I can use SpartaDOS X 
does not appeal to me, either. 

The Antic Arcade seems to say that 
SuperDOS 5.0 is compatible with all Atari 
8-bit computers. Will it let me take advan- 
tage of all the XF551's capabilities? 

Thomas Andrews 
Manlius, NY 

According to Arcade Manager Charles 
Cherry, SuperDOS 5. 0 does work with the 
800 and will give you full control of the 
XF55L - ANTIC ED 



ATARIAN FRIENDS 



I am the computer coordinator in the 
Lower School at the Wilmington Friends 
School. Fortunately, eight years ago the 
very wise principal of our school pur- 
chased four Atari 800 computers. Since 
then we have designed a curriculum 
around computer programming and word 
processing. The Atari computer is so easy 
for young children to program in graphic 
colors that we begin first graders design- 
ing and programming their own patterns. 
We continue programming through the 
fourth grade, with students strengthening 
their ability to plan a project. 

Presently we have four 800s, two 
800XLs, and 23 65XE computers. With 
the reasonable price of the system, many 
parents have also been able to get Ataris 
for their homes. 1 have prepared many les- 
son plans for teachers to use with BASIC 
on the Atari. It distresses me to see Atari 
systems take the back seat in conferences, 
catalogues, and everyday conversation. 

Bertie Toler 

Wilmington Friends 

School 

101 School Road 
Wilmington, DE 19803 



CELEBRITY REVIEW 

In my review of Celebrity Cookbook, 
published in the February 1989 Antic, I 
noted two problems with the program — 
quirky joystick response, and an inability 
to print the recipes, despite a very generic 
printer driver. 

Well, I wrote the company, and they did 
send me a fresh copy that fixed these bugs. 
It was six weeks in arriving, perhaps due 
to having moved their offices from Cali- 
fornia to Maryland about that time. But 
the support was there for me, so I 
wouldn't hesitate to recommend the 
product. 

David Merrihue 
Daly City, CA 

Celebrity Cookbook ($29 95) is available 
from U.S.A. Media, 7810 Malcolm Road, 
Clinton MD 20735. (301) 868-5494. - 
ANTIC ED 



FROM DEBUGGING TO 
BUG SPRAY 



I would like to start an Atari Farmer's and 
Gardener's user group. Anyone who uses 
an Atari 8-bit to help them with their 
gardening or farming is welcome to join. 
I would like to issue a disk full of useful 
programs, if we can accumulate enough. 
We are particularly interested in artificial 
intelligence applications for the purpose 
of sorting out plant nutrient requirements, 
programs to track nutrient usage, or any- 
thing else that would help with the task 
of growing food. This includes hardware 
interfacing with real world sensors, etc. 

Anyone interested should drop us a let- 
ter with a self-addressed stamped enve- 
lope, and we'll let you know how it's go- 
ing. The Atari 8-bit is the most 
cost-effective computer around. Let's get 
on the ball and see if we can apply it to 
the much needed job of producing whole- 
some food. GROMOR-SYSTEMS 
Lee Jones 
Rt. 1 Box 76-B 
Pleasantville, TN 
37147-9801 



ATARIWRITER DRIVERS 

I have a problem with the subscript and 
superscript commands in AtariWriter. The 
printer goes into subscript or superscript 
mode, but won't come out, so everything 
is printed in tiny print slightly above or 
below the normal print line. I have an Ep- 
son LX-80 printer. Is there anything I can 
do to fix the problem? 

K. Helton 
Sacramento, CA 

The Antic Arcade's Printer Driver Con- 
struction Set (AP0131, $19.95) will let 
you set up a special driver file that will 
"make your AtariWriter cartridge com- 
patible with any printer." — ANTIC ED 

DRIVE NEEDS DOS 



We have an Atari 800XL and a disk drive, 
and are thinking of subscribing to your 
disk magazine. Do you need DOS to play 
the disks? 

J.E. Barclay 

Lake Havasu City, AZ 

DOS stands for Disk Operating System, 
and as the name suggests, you need some 
sort of DOS to use a disk drive. For- 
tunately, the Antic Monthly Disk always 
comes with Atari DOS 2. 0 on it — all you 
need to do is put the disk in the drive and 
turn the computer on, and the disk menu 
will appear. — ANTIC ED 



Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon- 
dence as time permits, our highest pri- 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94101. 



6 



ANTIC, THE ATARI RESOURCE 



A COMPUTER SOFTWARE SERVICES 
RO BOX 17660, ROCHESTER NY. 14617 
ATARI" PHONE [716] 467-9326 

JUST RELEASED! 
$99.95 "SUPER ARCHIVER II"! 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (including PHAN- 
TOM SECTORSI). Completely automatic; compatible with the BIT-WRITER!; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICEI If you already own a SUPER ARCHIVER!, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 




$69.95 



THE 

$69.95 "SUPER ARCHIVER"! 0 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATAR1 10501 It eliminates the need for Patches, PDB files, Computer 
Hardware, etc Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 1050! Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 



• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR • reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 
up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 

• SIMPLE INSTALLATION 

The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . . . buy the "BIT-WRITER"! also . . . then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



• TRUE DOUBLE DENSITY 

• ULTRA-SPEED read/write 

• FULLY AUTOMATIC COPYING 

• SUPPORTS EXTRA MEMORY 

• SCREEN DUMP to printer 

• TOGGLE HEX/DEC DISPLAY 

• SECTOR orTRACK TRACING 

• AUTOMATIC DIAGNOSTICS 

• DISPLAYS HIDDEN PROTECTION 

• ADJUSTABLE/CUSTOM SKEWING 

• AUTOMATIC SPEED 
COMPENSATION 

• AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



$79.95 



'BIT-WRITER"! 



$79.95 



The Super Archiver "BJTWRfTER"! is capable of dupteating even the "uncopyabte" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER"! is 
capable of reproducing these and FUTURE protection schemes of non 
physicially damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The "SUPER ARCHIVER with "BIT-WRITER"! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 

$69.95 "ULTRA SPEED PLUS" $69.95 

Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate It instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without it! Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK In Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are just a FEW features you'll find 
in the amazing OS: 



i ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 

' Boot directly from RAMDISK 

i Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 
Background colors adjustble 

i Reverse use of OPTION key 
Cold-slart without memory loss 
Built-in floppy/disk configuration 
editor (1-9) 



• Built In RAMDISK configura- 
tion editor (1-9) 

• RAMDISK exactly duplicates 
floppy drive so sector copy- 
ing and sector editing are 
now possible 

• Built In MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

• Toggle Internal BASIC 



• Ram resident disk loader 
program (MACH 10 menu) 

• DOUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems In 
one (XUXE. 4007800, ULTRA 
SPEED PLUS) 



$29.95 



"XF551 ENHANCER!" 



$29.95 



The XF551 Atari drive is a fine product with one major flaw.. .it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1050, Atari 810, etc Add the 
XF551 ENHANCER to the new XF551 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF551 ENHANCER is a MUST for all 
XF551 Owners. Installation Is simple. Only $29.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discount availalbe call for info 
PHONE Orders - MASTER CARD, VISA MAIL - Money Orders, Checks 

•SHIPPING! Add $4 for Shlpping/Handling/lnsurance within the U.S.A. 
UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am - 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 



A 

ATARI 



$39.95 RICHMAN'S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This "DISK ONLY" 80 Column Word-Processor is 
simple to use while offering numerous features such as: 



Completely Menu driven 
Self contained DOS 
Complete Text formatting 
Built in Printer Drivers 
Page numbering 
Justify and Endfill 
High Speed Cursor 
Dictionary 

80 COLUMNS ON THE SCREEN! 



• Insert and Delete 

• Search Mode 

• View only mode 

• Memory Statistics 

• Alternate Output 

• Change screen Colors, 
borders, luminesce 

• Mouse compatible 



One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 



$39.95 



THE "QUINTOPUS!" 



$39.95 



The "QUINTOPUS!" is an inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless "daisy-chaining" of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, etc). The "QUINTOPUS!" is an I/O port expander that 
converts a single I/O output/input into five additional outputs/inputs. Instead 
of daisy-chaining all of your peripherals (which often times results in passing 
a signal through 30 feet or more of cable!), the "QUINTOPUS!" allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The "QUINTOPUS!" also 
provides the "extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacitance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE "QUINTOPUS!" $59.95 
(with SWITCHABLE PORTS!) 

This Deluxe version of the "QUINTOPUS!" has all of the above features with 
the additional benefits of two SWITCHABLE PORTS! This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 

or computers without the hassel or re-arranging I/O cables simply flip 

a switch! Only $59.95 plus $4 S/H/l. 



LIMITED SPECIALS! 



Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the Items listed below are BRAND NEW.. .only 
their literature or packing may have slight cosmetic imperfections. All items 
are fully warrantiedl Quantities are limitedl No rainchecks! 

LIMITED 

NORMALLY SPECIALS 



1. 


PILL (without case) 


$ 70 


$19 


2. 


SUPER PILL (without case) 


80 


22 


3. 


XL FIX ROM 


70 


19 


4. 


ULTRA MENU/DOS 


30 


19 


5. 


DISKCRACKER (Newest version) 


50 


19 


6. 


ELECTRONIC PHANTOM SECTOR MAKER DELUXE 


60 


35 


7. 


RICHMANS 80 COLUMN WORD PROCESSOR 


60 


29 


8. 


MIRACLE (Disk only Version of Impossible) 


70 


19 


9. 


IMPOSSIBLE for 800 or 800XL 


150 


69 


10. 


XL MATE 


30 


15 


11 


COMPACTOR 


30 


15 


12. 


KLONE II (Generic HAPPY backup) 


100 


75 


13. 


SILENCER 


30 


19 


14. 


BLACK PATCH (MASTER) 


50 


25 


15. 


BLACK PATCH DATA DISKS 1 & 2 


20 


10 



•Order 5 items or more and we will pay the freight! 

These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS - NO RAINCHECKS 
- LIMITED QUANTITIES 



I 'type-In Software 



Machine 
Language 

Stringer 



Save 7 
seconds on 
each BASIC 
subroutine. 



By Andy Barton 

Machine Language Stringer takes machine language object 
code and converts it into string format for use in your otvn 
BASIC programs. This BASIC program works on Atari 8-bit 
computers with at least 48K memory and disk drive. 



Most machine language 
routines in BASIC pro- 
grams are in the form of 
string data. This is done 
partly because strings take up less 
space than numerical DATA, state- 
ments. They frequently don't need to 
be POKEd into a memory location. 

When I tried translating a machine 
language routine in one of my pro- 
grams into string format, I discovered 
the best reason for using strings. The 
string format virtually eliminated the 
seven seconds used to READ the 144 
bytes of data and POKE them onto 
page 6. I was sold. I dearly hate to 
wait for slow computers. 

I developed Machine Language 
Stringer to do the near-impossible 
manual task of taking the object code 
file of a machine language program 
(the executable code) and converting 
it into a set of BASIC program lines 



that will produce the proper string 
data. 

GETTING STARTED 

Type in Listing 1, STRDAT.BAS, and 
check it with TYPO II. Be sure to 
SAVE a copy to disk before you RUN it. 

If you have difficulty typing the 
special characters in Line 460, don't 
type them in. Instead, type Listing 2, 
check it with TYPO II and SAVE a 
copy. When you RUN Listing 2, it cre- 
ates these hard-to-type lines and stores 
them in a file called LINES. LST. 

To merge the two programs, LOAD 
"D:STRDAT.BAS" and then ENTER 
"D: LINES. LST." Remember to SAVE 
the completed program before you 
RUN it. 

When you RUN the program, you 
will be asked for the object file name. 
If you forget the "D:" or the name is 
not found you will be asked again. 



Next you are asked for a starting line 
number. Be sure you choose one that 
will not overlap lines in your BASIC 
program or in this one. 

Finally, you are asked for a name 
for the machine language string (max- 
imum of 2 characters). The program 
will add a numerical extender to this 
name, starting with 1. The program 
will now go about the business of 
reading the object file and building 
the BASIC line(s) that will be incor- 
porated into this program using Atari's 
forced read mode. 

Wlien the program is done, there 
are three more steps for you to take 
to incorporate the string into your ba- 
sic program. 

1. LIST the new lines to a disk/cas- 
sette file, for example: 

LIST U D1YOURPRG.STR",1000,1005. 

2. LOAD your BASIC program and 
ENTER the string data file, for 
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example: 

ENTER "DIYOURPRG.STR". 

3. Make a USR comand to run the 
ML string. 

PROGRAM NOTES 

There are two numbers that cannot 
be displayed in a string — 34 and 155. 
34 is ASCII for a quotation mark and 
155 is ASCII for a carriage return (re- 
turn key). This program handles this 
problem by creating a separate line 
that inserts the number into its proper 
place in the string, for example: 

1001 ML1$(72,72) = CHR$(155). 

There are two types of machine 
language programs, ones that are fully 
relocatable and ones that are fixed at 
a particular memory location. Jump 
(JMP) and jump subroutine 0SR) co- 
mands use absolute rather than rela- 
tive addressing and thus require the 
program to be at the specific location 
to which it was assembled. 

Machine Language Stringer accom- 
modates this by creating a final BASIC 
line which provides a brief machine 
language string to move the string 
data to the memory location indicated 
by the object file, for example: 

1006 X = USR(ADR("hh. . ."), 
FROM , TO , NO. BYTES ) 

This line is provided regardless of 
which type of machine language pro- 
gram you wrote. If your program is 
fully relocatable, this line can be 
deleted. 

It is possible to create a program 
that is loaded into two or more sepa- 
rate memory locations. For example, 
a section of subroutines could be 
fixed onto page 6 and the main pro- 
gram could be totally relocatable. 
Machine Language Stringer accomo- 
dates this by using the numeric ex- 
tender mentioned above. Each time 
a new load address is indicated in the 
object file, the extender is increased 
by one, creating a new string name. 
Each string is provided with its own 
loader. 

As mentioned above, for a program 
to be relocatable it cannot use abso- 



lute addressing with jump instruc- 
tions. I have found no way around this 
problem with subroutines other then 
placing them on Page 6 or some other 
safe, fixed location. 

However, there are two tricks I have 
discovered for JMP instructions. The 
problem arises when I would use a 
branch instruction, but find that its 
range (126 bytes) was too short so I 
would be forced to use a JMP instru- 
tion. The first crude but effective so- 
lution involves setting up intermedi- 
ate branches to one or more areas 
within range, but outside the flow of 
the program. Here is an example: 

LOOP LDY #0 
PARTI LDA ($D0),Y 



BP1 



BEQ PARTI 
BNE PART2 

BCS LOOP 



BRANCHES 
OVER 
INTER- 
MEDIATE 
BRANCH 



PART2 ASL A 



SEC 



;SET CARRY 
;TO 

BCS BP1 ;FORCE A 
;BRANCH 
The second solution is more ver- 
satile, using the indirect jump instruc- 
tion JMP(XXXX). It involves passing 
the address of the relocateable ML 
string to the ML program in BASIC'S 
USR command. The ML program then 
figures the relative distance from the 
start of the program to the targeted in- 
struction, adds this to the starting ad- 
dress of the string and saves the re- 
sults on page 6 for the JMP(XXXX) to 
use. Here are two examples, first in 
BASIC: 

X = USR(ADR(ML $ ) , ADR(ML $ )) 

In ML, this would be: 
IJP1 = $600 ;SAFE 



IJP2 = $602 



STORAGE 
FOR 

INDIRECT 
JUMP 
ADDRESS 



START * = 
PLA 
PLA 



TAX 
PLA 



TAY 



CLC 
ADC 



STA 

TXA 

ADC 

STA 
TYA 

CLC 

ADC 

TARG1 SEC 



$5600 

HI BYTE OF 
ADDRESS OF ML 
STRING 

LOW BYTE OF 

ADDRESS 

SAVE IF MORE 
;THEN ONE JUMP 
■TARGET 

NEEDED 

#<TARG 1-START 
ADD LOW BYTE 
OF TARGET 
ADDRESS OFFSET 
;TO ML STRING 
ADDRESS 
IJP1 

#>TARG 1-START 
;ADD HI BYTES 
IJP1 + 1 

GET LOW BYTE 
STRING ADDRESS 
FOR SECOND 

•TARGET 

#<TARG2-START 
etc. 

SOMEWHERE IN 
MAIN PROG. 



JMP(IJP1) 



You may have to modify the pro- 
gram to get it to work with character 
set files. This program strips the first 
two control characters from the file, 
so you would end up with 1022 in- 
stead of 1024 bytes in your character 
set files. 

As always, whenever modifying 
your programs you should first make 
backups of the originals, in case prob- 
lems arise. A 

Andy Barton has been a regular contrib- 
utor to Antic since 1984. His machine 
language game, Exwall, is this month's 
Super Disk Bonus. 

Listing on page 37 



JULY 1989 
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B&C 

ComputerVisions 



3257 KIFER ROAD 
SANTA CLARA, CA 95051 
(408) 749- 1003 

(408)749-9389 FAX 



A 



STORE HOURS 
TUE- FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN - MON 



SOOJ X E/ XE SOFTWARE 
ALL TITLES ON DISK 



800/ X E/ X E SOETWA RE 

ALL TITLES ON CARTRIDGE 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14.9 5 

ALIANTS 26.9 5 

ALT. REALITY CITY 26.9 5 

ALT. REALITY DUNGEON. 26.95 

BEYOND CASTLE WOLF. ... 14 .95 

RTSMARK 26.95 

nOP & WRESTLE 26.95 

UORDINO: 1812 26.95 

BOULDERDASH CONSTR.SET 17.9 5 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN. ... 14 .95 

DALLAS QUEST 7.95 

D- BUG 7.95 

F-15 STRIKE EAGLE .... 31.50 

FIGHT NIGHT 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD HAT MAC 7.95 

JAWBREAKER 9.95 

KARATEKA 13 . 50 

KNICKERBOCKERS 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

LEADERBOARD 13.50 

MAIL ORDER MONSTERS .. 13.50 

MICROLEAGUE BASEBALL. . 35.95 

MONTEZUMA'S REVENGE. . . 14.9 5 

MOUSEQUEST 17.95 

MOON SHUTTLE 7.95 

NINJA 8.95 

OIL'S WELL 9.95 

O'RILEY'S MINE 9.95 

PIRATES OF BARB . COAST 22.50 

PRFPPTE I & II 9.95 

RESCUE ON FRACTALAS... 13.50 

SILENT SERVICE 31.50 

SPEEDKINp 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STARFLEET I 44.95 

SPY VS. SPY III 17.95 

STOCKMARKET 22.50 

STRIP POKER 26.9 5 

SUMMER GAMES 17.9 5 

TAX DODGE 9.95 

THE HULK 7.95 

TOMAHAWK (64K) 26.95 

TOP GUNNER 17.95 

TOUCHDOWN FOOTBALL ... 13 . 50 

TRAILBLAZER 26.95 

UNIVERSE 44.95 

ZAXXON (400/800) 13.50 

PROGRAMMING 

ACTION I 71.95 

ACTION! TOOLKIT 26.95 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71.95 

DOS 2.5 7.95 

DOS XE 10.00 

DISK I/O 26.9 5 

KYAN PASCAL 62.95 

LIGHTS PEED C 35.95 

LOGO 19.95 

MAC/65 71.95 

MAC/6 5 TOOLKIT 26.95 

MACRO ASSEMBLER 22.50 

PILOT 19.9 5 

SPARTA DOS X 71.95 

TOP DOS 1.5 PLUS 35.95 

PRODUCTIVITY 

ANIMATION STATION .... 89.95 

ATARI V7RITER+ 39.95 

ATARI BOOKKEEPER 24.95 

ATARI MUSIC II 14.95 

AWARDWARE (1050) 13.50 



BANK STREET WRITER.... 14.95 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 26.95 

COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6.95 

GUITAR WIZARD 26.9 5 

HOME ACCOUNTANT 19.9 5 

HOME FILING MANAGER. . 6.95 

HOMEPAK 24.9 5 

INVENTORY MASTER 80.9 5 

LETTER WIZARD 29.95 

MUSIC CONSTRUCTION SET 13.50 

NEWSROOM (1050 - 64K). 44.95 

NEWS STATION 26.95 

NEWS STA. COMPANION. . 26.95 

PAGE DESIGNER 26.95 

PRINT POWER (1050).... 13.50 

PRINTKIT (1050) 13.50 

PRINTSHOP 34.9 5 

P.S. COMPANION (64K) . 24.95 

P.S.GRAPHICS LIBRARY 1 17.95 

P.S.GRAPHICS LIBRARY 2 17.9 5 

P.S.GRAPHICS LIBRARY 3 17.9 5 

PROOF READER 17.95 

PUBLISHING PRO 3 5.95 

RUBBER STAMP 26.95 

SYNTREND (130XE) 35.95 

SUPER MAILER 35.95 

THE LOTTO PROGRAM .... 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44.95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VIRTUOSO 29.9 5 

VISICALC 24.95 

EDUCATION 

ATARI LIGHT MODULE 

(REQ. STARTER SET) . 9.9 5 

BUZZWORD 35.95 

GRANDMA'S HOUSE (-10) 9.95 

HEY DIDDLE (AGE 3-10). 9.95 

MASTER TYPE 14 .95 

PLANATARIUM 22.50 

STATES AND CAPITALS .. 9.95 

TOUCH TYPING 9.9 5 

CBS (AGE 3-6) : 

ASTROGROVER 8.95 

BIG BIRD SPEC DEL1VE 8.95 

ERNIE'S MAGIC SHAPE. 8.95 
DES IGNWARE : 

MATHMAZE (6-11) .... 35.95 
MISSION ALGEBRA (13+) 35. 95 

SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC'S 8.95 

COUNT AND ADD 8.95 

SMART THINKER 8.95 

SPELLING 8.95 

SUBTRACTION 8.95 

THINKING SKILLS .... 8.95 

ALL 6 TINK TONKS.. 39.95 
UNICORN : 

10 LITTLE ROBOTS 

(PRE -SCHOOL) 26.95 

FUN BUNCH (6- ADULT) 26.95 
RACECAR RITHMETIC 

(AGE 6+) 26.95 

WEEKLY READER ( PRE-SCHOOL) : 

STICKY BEAR SHAPES . 26.95 

STICKY BEAR NUMBERS. 26.95 

STICKY BEAR ABC'S .. 26.96 

STICKY BEAR OPPOSITE 26.95 

SB BASKET BOUNCE ... 26.95 

STICKY BEAR BOP .... 26.95 

RUN FOR IT 26.95 

PIC BUILDER 26.95 



ENTERTAINMENT 

3D TIC-TAC-TOE .... 

AIRBALL (XL/XE) 24 

ALIEN AMBUSH 

ACE OF ACES . (XL/XE) . 

ARCHON 

ASTEROIDS 

ASTRO CHASE 

ATARI TENNIS 

ATLANTIS 

BALL BLAZER 

BARNYARD BLASTER 

(REQ. LIGHT GUN) . . . 

BATTLEZONE 

B.C. QUEST FOR TIRES 

BLUE MAX 

BOULDERS (. BOMBS .... 

CAVERNS OF MARS 

CENTIPEDE 

CHICKEN 

CHOPLIFTER 

CLAIM JUMPER (400/800) 

CLOUDBURST 

CRIME BUSTER 

(REQ. LIGHT GUN) . . 

CROSSBOW 

CROSSFIRE 

CRYSTAL CASTLES (XL/XE) 
DARK CHAMBERS (XL/XE). 
DAVIDS MIDNIGHT MAGIC 

DEFENDER 

DELUXE INVADERS 

DESERT FALCON 

DIG DUG 

DONKEY KONG 

DONKEY KONG JR 

EASTERN FRONT (1941). 

E.T. PHONE HOME 

FIGHT NIGHT 

FINAL LEGACY 

FOOD FIGHT (XL/XE) . . . 

FOOTBALL 

FROGGER 

GALAXIAN 

GATO 

GORF (400/800) 

GYRUSS 

HARDBALL 

INTO THE EAGLES NEST 
JOURNEY TO PLANETS . . 

JOUST 

JUNGLE HUNT 

KABOOMJ 

KARATEKA 

KRAZY ANTICS 
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LODE RUNNER 

MARIO BROS 

MEGAMAN1A 

MILLIPEDE 

MISSILE COMMAND .... 

MOON PATROL 

MR. COOL 

MS. PAC MAN 

NECROMANCER 

ONE ON ONE (XL/XE) . . 

PAC MAN 

PENGO 

POLE POSITION 

POPEYE 

Q-BERT 

QIX 

RESCUE ON FRACTALAS 
RETURN OF THE JEDI . 

ROBOTRON: 2084 

SKY WRITER 

SLIME (400/800) 

SPACE INVADERS 

STAR RAIDERS 

STAR RAIDERS II .... 
SUBMARINEE COMMANDER 
SUMMER GAMES (XL/XE) 

SUPER BREAKOUT 

SUPER COBRA 

THUNDERFOX 

TRACK i. FIELD 

TURMOIL 

WIZARD OF WOR 

PRODUCTIVITY 

ATARIWRITER 19.95 

MICROFILER 22.50 

EDUCATION 

ATARI LAB STARTER SET . 29.95 

FUN WITH ART 14 . 95 

MATH ENCOUNTERS 9.95 

FISHER PRICE (PRE SCHOOL): 

DANCE FANTASY 8.95 

LINKING LOGIC 8.95 

LOGIC LEVELS 8.95 

MEMORY MANOR 8.95 

SPINNAKER (AGE 3-10): 
ALF IN COLOR CAVES . 9.95 

ALPHABET ZOO 9.95 

DELTA DRAWING 9.95 

FACEMAKER 9.95 

KIDS ON KEYS 9.95 

KINDERCOMP 9.9 5 

(AGE 7 - ADULT) : 

ADV. CREATOR ( 400/800 ). 9 . 95 
FRACTION FEVER 9.95 
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RECONDITIONED ATARI MERCHANDISE 

30 DAY WARRANTY 



800 (48K) 
COMPUTER 
$79.95 


SPACE AGE 
JOYSTICK 
$5.00. 


1030 MODEM 
WITH EXPRESS! 
$24.95 


400 (16K) 


ATARI 


1010 PROGRAM 


COMPUTER 


TRACKBALL 


RECORDER 


$29.95 


$9.95 


$29.95 


1020 COLOR 
PRINTER/ PLOTTER 

$19.95 

40 COLUMNS WIDE 
(new in box) 


ATARI 
BOOKKEEPER 
$14.95 - NO BOX 

ATARI 
NUMERIC 
KEYPAD $7.95 


DISKETTES 
AS LOW AS 20 CENTS 
10 FOR $4.00 
100 FOR $29.95 
1000 FOR $200 
MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 



SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk drive. Add $2.75 for C.O.D. 
Calif, res. include 7<fr sales lax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders may be pre-paid with money order, cashier 
check, or personal check. Personal checks are held for three weeks before order is processed. C.O.D orders are shipped via UPS and must be paid with cash, cashier check or 
money order. International and APO orders must be pre-paid with cashier check or money order. $20.00 minimum on all orders. All sales are final - no refunds - prices are 
subject to change. 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 
We carry a full line of ATARI products - large public domain library - write or call for free catalogue 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 



type-In Software 

Customizing the Atari 



Operating System 
Device Handlers: 



Part II 



By Bob Martin & Martin Mercorelii 

The final half of this series is for experienced MAC/65 
programmers. It describes an interactive handler that saves 
machine language programs as boot files. This program 
requires MAC/65 and OS/A+, and works on all 8-bit Atari 
computers of any memory size, with disk drive. 



In the previous month's Antic, the 
first half of this series introduced de- 
vice handlers and described how they 
work by creating two simple handlers. 
This final installment describes the 
creation and operation of MAKE- 
BOOT, a more sophisticated device 
handler. 

The MAKEBOOT handler lets you 



save object code as a boot file and 
convert binary load files to boot files. 
Before the MAKEBOOT handler can 
do this, however, it does something 
quite unique — it asks you questions. 

Although almost every useful com- 
puter program prompts you for infor- 
mation, handlers do not. Since the 
CIO (Central Input/Output) uses de- 



vice handlers whenever it operates, 
the device handlers cannot easily use 
CIO to prompt you for information — 
the CIO is busy. 

If we try to use the CIO while it's 
busy, your Atari usually — but not 
always — becomes confused and acts 
strange. This is why handlers should 
not use CIO for I/O to the screen or 
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keyboard. 

The catch is that we often want to 
interact with a program while a hand- 
ler is in use. Therefore we must use 
the screen or keyboard handlers 
directly, without going through the 
CIO. 

MAKEBOOT is an example of such 
a handler. The MAKEBOOT program 
requires you to direct the handler 
operation and make some decisions 
while it's operating. Your Atari oper- 
ating system has a built-in mechanism 
for accomplishing this. 

Uses for this program include load- 
ing an alternate program into the same 
area occupied by DOS, or initializing 
your Atari before DOS is loaded. For 
example, you could load in the modi- 
fication to the printer handler. You 
could use this program to produce 
bootable games or programs that pro- 
duce a disk menu. 

BOOT FILES 

A boot file is a machine language 
program which resides on the outer- 
most sectors of a disk. It is automati- 
cally loaded whenever you boot with 
that disk. On the disk, the boot file 
is a continuous, uninterrupted file 
which begins in the first sector and 
occupies successive sectors until the 
end of the file. On disk, there are no 
breaks between the end of one sec- 
tor and the beginning of the next — 
and no directory. 

Binary load files are machine lan- 
guage programs which may reside 
anywhere else on the disk. On the 
disk, a binary load file may be broken 
into sector-sized pieces and scattered 
throughout the disk. The last three 
bytes of each sector direct your Atari 
to the next sector of the file. Your Atari 
treats these sector links as "Continued 
On Sector xxx" messages. 

Every time you boot a disk, your 
Atari checks the first six bytes of the 
first sector to determine what action 
to take next. 

Byte 0, the first of these six bytes, 
is used as a flag. (A zero in this loca- 
tion denotes a boot file.) This value 



is stored to DFLAGS, memory loca- 
tion 576 ($0240). 

Byte 1 contains the number of sec- 
tors to load, bytes 2 and 3 tell your 
Atari where to load the boot data (this 
is the "load address"), and the next 
two bytes tell your Atari where to go 
after the program starting at byte 6 is 
executed (this is the "initialization 
address"). 

The program starting at byte 6 is an 



The 
MAKEBOOT 
handler 
does something 
quite 
unique — it 
asks you 
questions. 



initialization program and usually 
ends with an RTS (RfTurn from Sub- 
routine) instruction. If there is no in- 
itialization routine, then byte 6 must 
be an RTS instruction, which is 
represented by a 96 ($60). 

If the initialization routine doesn't 
start at byte 6, then byte 6 must be a 
JuMP instruction, directing your Atari 
to the start of the initializing routine. 

When the initialization program 
ends, the operating system jumps to 
the memory location given in bytes 
4 and 5. 

The program in Listing 1, MAKE- 
BOOT.M65, treats the first nine bytes 
of sector 1 as if it was structured as 
shown in Figure 1. This structure re- 
quires nine bytes of data on sector 1 . 

When a series of sectors is loaded 
as part of the initial boot, the sectors 
are loaded sequentially in memory. 



For example, if the initial load address 
is 1000, then sector 1 loads its data 
starting at 1000 (including the first six 
bytes), sector 2 loads its data starting 
at 1128 (there are 128 bytes per sec- 
tor), etc. 

This initial boot sector load is called 
the first-stage load. For a DOS format 
disk, three sectors are loaded in the 
first-stage load, then your Atari loads 
DOS.SYS, a second-stage load. 

Since the boot sectors are loaded in 
memory sequentially, the specified 
load address (bytes 2 and 3) is treated 
as the memory location of byte 0 of 
sector 1, and data on the disk is cal- 
culated relative to that address. In the 
example, if the load address was 1000, 
then byte 0 of sector 1 corresponds 
to memory address 1000, byte 0 of 
sector 2 corresponds to address 1128, 
etc. Note that the initialization routine 
of the boot sectors starts at 1006, since 
all of sector 1 (including the first six 
bytes) is loaded. 

THE LOAD FILE 

Now that we've determined a way 
to put data on the boot disk, we need 
to know how data will be received 
from the CIO. Load files are loaded 
by DOS as a series of data blocks. A 
block can be any length, but they're 
typically 251 bytes long (at least in 
MAC/65) and preceded by two two- 
byte numbers. The first number is the 
starting address, where the first byte 
is stored. The second number is the 
ending address, where the last byte is 
stored. 

If DOS was loading this file in 
memory, each byte of the block 
would be stored sequentially until the 
ending address was reached. Then it 
would repeat the process until all the 
data had been loaded. 

This varies only at the start of a file 
and when appending files. The start 
of a file has two bytes of the value 255 
that identify it as a load file. When one 
load file is appended to another, these 
bytes are carried over to the load data. 
This means that a data block is 
preceded by either four or six bytes, 
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where the first two are 255, 255. 

Since each block has its own load 
address, data can be loaded in widely 
separated memory locations even for 
a short load file. Thus the load file 
doesn't necessarily have the same 
number of sectors as the resulting 
boot sector count used by the MAKE- 
BOOT handler. 

Finally, two more addresses are 
used by DOS as vectors for load file 
execution — the initialization address 
loaded to INITAD, memory location 
738 ($02E2); and the run address 
loaded to RUNAD, memory location 
736 ($02E0). The latter is executed af- 
ter the file is completely loaded and 
the former is executed as soon as a 
new address is loaded to INITAD. 

Generally these addresses should 
correspond to the boot sector run ad- 
dress of bytes 4 and 5 and the initiali- 
zation routine starting at byte 6. Both 
addresses are loaded as any other data 
from a load file (e.g. as a two-byte data 
block). 

HOW IT WORKS 

In Part 1 of this series, we discussed 
three steps of adding a new handler: 

1. Write the program for the 
handler. 

2. Set up the Handler Table. 

3. Make an entry in the Handler 
Address Table. 

In step 1, the routines that comprise 
the handler are on lines 5000-8600. 

The open routine (BOPEN, lines 
5185-5480) sets the initial values of 
the variables used in the program and 
checks to make sure you still want to 
proceed. It also writes zeros into as 
many sectors as you want, starting 
with sector 1. 

The close routine, line 7130-7495, 
writes the last sector to the boot disk. 
Then it takes the actual sector count, 
the run address and the initialization 
address, and asks you if you want to 
add these to the boot disk (the first 
nine bytes of sector 1). 

The PUT BYTE routine (BPUT), 
line 6925-7085, receives all the data 
from the load file. Most subroutines 



in this program support the PUT 
BYTE handler. This routine first stores 
the byte from the CIO and then 
checks to see if it's part of the first six 
bytes of the load file. If so, subroutine 
FSTSIX checks for a load file and lets 
you set the sector count, load address, 
run address and initialization address. 

Data after those first six bytes is ei- 
ther program data stored in a 128-byte 
buffer before being written to the 
boot disk, or load information ex- 
tracted by the subroutine LDINFO. 
This subroutine compares the starting 
address of the load file with the cor- 
responding boot sector load address 
and calculates the location of the next 
block on the boot disk. If a load file 
address is lower than the specified 
boot disk load address, an error mes- 
sage is issued and the CIO returns 
control to you. 

The data in memory locations 736- 
739 ($02E0— $02E3) are stored in the 
variables RUNADR and INTADR. In 
the CLOSE routine, you can add these 
values to their respective positions in 
sector 1. 

The handler for the GET status rou- 
tine is also used as the general exit 
routine for all handler routines. This 
large program needs an internal sta- 



Label 

Read a Sector 

DCOMND 

DSTATS 

Write a Sector 

DCOMND 

DSTATS 



tus variable. Error codes are stored in 
STATS and loaded into the accumula- 
tor and Y register when the handler 
returns to the CIO. The CIO returns 
control to you when an error code 
greater than 127 occurs. 

The GET BYTE and special func- 
tions are not implemented here and 
are represented by NOFNT (line 
6785). This is simply an RTS which 



passes error code 146 back to the CIO. 

The handler in lines 5035-5065 is 
not very complicated. Each address 
is represented by the address-minus- 
one of each routine and is in the or- 
der given in Figure 1 in part one of 
this series from last month's Antic. 

Step 3 (lines 440-630) makes an en- 
try into the Handler Address Table, 
finding an empty spot in the Handler 
Address Table and adding the ASCII 
code for "B" followed by the address 
of the Handler Table. That's the same 
routine used in the NULL handler. 

I/O WITHOUT CIO 

The I/O subroutines for the MAKE- 
BOOT handler run from line 7505 to 
the end of the program. The first one 
reads and writes sectors to the boot 
disk. It doesn't use the resident disk 
handler (DSKINV) but instead uses 
the serial bus I/O utility vector (SIOV) 
and lets you write without write- 
verification, greatly speeding the 
process of writing to disk. 

To use SIOV, we must fill in all the 
values of the Device Control Block 
(DCB) from memory locations 768— 
779 ($0300— $030B). But for this ap- 
plication only four bytes of data are 
variable. To read a sector, set the fol- 



Value 

82 ($52) 
64 ($40) 



87 ($57) 
128 ($80) 



lowing memory locations: 

The command for writing without 
verification is $0050, and with verifi- 
cation it's $0057. The only other vari- 
able is the sector number in bytes 
$030A and $030B (low byte, high 
byte) taken from the variable SEC- 
NUM. All other values are supplied by 
the routine DISKIO. 

The second I/O subroutine in lines 



Memory Location 

770 ($0302) 

771 ($0303) 

770 ($0302) 

771 ($0303) 
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7840-7930 accepts either Y or N from 
the keyboard buffer and loads the ac- 
cumulator with either a one for Y or 
a zero for N. Upon returning from this 
subroutine, a BEQ or BNE tests for the 
key pressed. The only drawback to 
this is that the character for the key 
pressed is not displayed. 

These two routines perform I/O 
consistently between Atari operating 
systems. SIOV is a vector that always 
points to the serial bus I/O utility, and 
the keyboard buffer is always at 
$02FC. To get or display a string of 
bytes from the keyboard, we need a 
different approach. 

SCREEN EDITOR HANDLER 

Both writing to the screen and 



receiving a string from the keyboard 
can be done via the screen editor han- 
dler. Printing to the screen is done by 
loading the accumulator with the 
ASCII value of the character to be dis- 
played and doing a JSR to the screen 
editor's PUT BYTE routine. To get a 
byte from the screen, do a JSR to the 
screen editor's GET BYTE routine. 
Upon return, the ASCII value of the 
next key pressed will be in the ac- 
cumulator. 

For most Atari operating systems, 
the screen editor's PUT BYTE routine 
starts at $F6A4 and the GET BYTE 
routine starts at $F63E. Your program 
might use these addresses to read and 
write to the screen. The problem is 
that these locations aren't guaranteed 
and may be at different locations in 
different operating systems. We have 
to find these handler routines in- 



dependently of the operating system. 

The method for this is included in 
the initialization routine for the 
MAKEBOOT handler. Lines 690-1070 
first locate the screen editor's Handler 
Table by searching the Handler Ad- 
dress Table (starting at $031A) for the 
E: device. 

The two bytes following the ASCII 
E are the address of the Handler Ta- 
ble, in which bytes 4 and 5 are the 
address-minus-one of the GET BYTE 
routine and bytes 6 and 7 are the 
address-minus-one of the PUT BYTE 
routine. These addresses are stored in 
a three-byte jump instruction on lines 
8295 and 8320. One is added to each 
address, so we're ready to do I/O to 
and from the screen. 



Instead of doing a JSR to a location 
in the operating system, we do a JSR 
to either EPUT or EGET The program 
is vectored to the true address of the 
PUT BYTE and GET BYTE routine. 

Now that we've established a legal 
way of using the screen editor to read 
and write to the screen, we can fin- 
ish discussing the I/O routines. 

To use the subroutine in lines 8140- 
8270 that displays characters, load the 
low byte of the address of the first 
character of the string into the ac- 
cumulator and the high byte into the 
Y register. Then JSR to PRINT. 

This continues to display characters 
until it finds one with the most sig- 
nificant bit set (values greater than 
127). If the last character equals 128, 
then the cursor will remain at the end 
of that line of text. All values greater 
than 128 will make the text end with 



a carriage return. The only other con- 
trol character is a carriage return, 
represented by zero. Lines 8260-8515 
give examples of how this routine is 
used. 

The routine called PNUM (lines 
7950-7975) displays a two-byte in- 
teger as a base 10 number. To use it, 
put the low byte of the number in 
«00D4 (FRO) and the high byte in 
$00D5. Then do a JSR to PNUM. The 
routine uses the floating-point rou- 
tines found at $D800 to $DFFF. IFP 
converts the integer to a floating-point 
number in FRO. FASC converts a 
floating-point number in FRO to a 
string in a buffer called INBUFF at 
$0580. PRINTE displays the resulting 
string. 

Finally, GETNUM inputs a user- 
generated number and converts it to 
an integer in FRO. This routine also 
uses the floating-point routines, but 
it starts with an ASCII string in IN- 
BUFF. The string is input from the 
keyboard by doing a JSR to EGET un- 
til a carriage return is reached. To 
avoid most errors, the ASCII value for 
a zero ($0030) is put in the first byte 
in the INBUFF buffer. This means that 
any character other than a number 
will return a zero. 

USING THE PROGRAM 

MAKEBOOT is written for OS/A + 
DOS, and will not work with Atari 
DOS 2. Compile the source code (List- 
ing 1, MAKEBOOT M65) using 
MAC/65 or your Atari Assembler/Edi- 
tor cartridge. If you have the Antic 
monthly disk, you will find both the 
source code and the executable file 
(MAKEBOOT. EXE) already on the 
disk. (This executable file will NOT 
run with DOS 2.) 

Load the resulting file from DOS. 
To use the new handler, simply use 
the COPY command to copy the 
desired load file to the B: handler. You 
need a disk to hold the new boot sec- 
tors. (It's a good idea to use a freshly 
formatted disk, and always a good 
idea to work with backup copies of 
your programs, just in case.) 



You could use this 
program to produce your 
own bootable games or programs that 
produce a disk menu. 



14 



ANTIC, THE ATARI RESOURCE 



FIGURE 1 Boot Sector Data 

Byte # Bytes Purpose 

0 1 Flag stored at $0240 

1 1 Boot sector count 

2 2 Load address 
4 2 Run address 

6 3 Jump to initialization address 



The initialization address can start at byte 6 but for the purposes of this 
program, a jump instruction is placed here. 



The first six bytes of information 
can be added in several ways. The eas- 
iest is to put them in your program 
before compiling it, as shown in the 
example below. 

100 ; Start of your program 

110 ; 

120 *= (your load address) 
130 START .BYTE 0 
140 SECCNT .BYTE [LAST-START]/ 
128 + 1 

150 LOADAD .WORD START 
160 RUNADR .WORD (your run 
address) 

170 INITAD JMP (your program 

init) 
170 ; 

LAST is a label that is added to the 
end of your program. 

If this is impossible or incon- 
venient, they can be added while the 
MAKEBOOT handler is running. The 
first opportunity is before the load file 
is written to the boot disk. At this 



point the program asks you for the 
sector count, load address, run ad- 
dress and initialization address. 

If you use this method, you must 
leave at least six bytes between your 
load address and the beginning of the 
boot program for the boot informa- 
tion. If you specify an initialization 
address, you must leave nine bytes be- 
cause the initialization address is ad- 
ded as a jump to the address you 



specify and it starts at byte 6. 

Finally, after the boot sectors are 
written, the MAKEBOOT handler 
gives you the actual sector count, load 
file run address and load file initiali- 
zation address. Then it asks you if you 
want to add them. If you respond 
with a [Y] to these prompts, the cor- 
responding data will be added to sec- 
tor 1. A 
Listing on page 38 
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NEW XL/XE SOFTWARE! 



DARK CHAMBERS 
OROSSBOW^ (XE gun) 

oiste: on one 
choplifter 



AIRBALL SUMMER GAMES 
CRIME BUSTERS pCE gum) 
KARATEKA 
AIRBALL 





PHT HD DD T 7VTTT? T> 

JL \J a\J plotter 

Complete with: 1 AA 

• 2 Pen Sets S 1 ZL UK 

• 1 Roll Paper Y A A • V W 

• Power Supply & Cable ■ Brand New 

Em PEN SETS feSKS 1 


1200XL 64K COMPUTER 

| w/PAC-MAN f~*^%-*-9 m 

Reconditioned 


; 8Bit I/O Cable . $4.98 | 




i 850 Interface ^ttq qq I 

I PnU^SiS 1 


I 1027 PRINTER 

• okj v^oiurnn g ^^^^^^ ^^^^^ 

£ • Direct Connect ' ^ 
jjj • Letter Quality ^T - ^ ^ • 
Brand New 


1 810 DRIVES $129. 1 

Reconditioned g 




! BASIC TUTOR £ A QQ | 
4 BOOKS S^*»5JO | 




j 5.25" DISKS 20 CENTS EA.* | 

QTY. PRICE 
10 $4.00 




ATTN. DEALERS 

PAC-MAN 

Case of 19.0 vU5/« 


1 1UDU$169. 

1 Reconditioned 


100 .... $29.95 
•1000 .... $200 
MAJORITY ARE UNNOTCHED 
CONTAINING OLD SOFTWARE § 




j DOS XE ..$9.95 1 




800 48K COMPUTER 

W/PACMAN $69,95 

Reconditioned 


1025 PRINTER j 

• 80 Column i 

•Dot Matrix 0*7 ft ftQ 

• Friction/Tractor Q / H H Q 
•Direct Connect T^J^ | 


800 BOARDS 

1 • Mother • CPU vour choice 
j • Power • ROM $8.98 


DOS 2.S w/manual .. $4.98 | 


; 1010 Tape drive $29. | 

j 10' Joystick ext $ .99 I 

j Trackball $9.95 | 



CARTRIDGES FOR 800, XL, XE 



BASIC CARTRIDGE $4.95 

BASIC TUTOR (4 BOOKS) $4.95 

TURMOIL $4.95 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400,800) $4.95 

DEMON ATTACK (400,800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS.. $4.95 

MATH ENCOUNTER $7.98 

DANCE FANTASY $8.98 

LOGIC LEVELS $8.98 

MEMORY MANOR $8.98 

UNKING LOGIC $8.98 



CHICKEN $8.98 

CLAIM JUMPER $8.98 

DELTA DRAWING $8.98 

HEY DIDDLE DIDDLE .... $8.98 

SUME (400/800) $8.98 

ALPHABET ZOO $8.98 

ALF $8.98 

ADVENTURE CREATOR .. $8.98 

SKY WRITER $14.95 

FOOTBALL $14.95 

DEFENDER $14.95 

ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 



MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19.98 

ONE ON ONE BASKETBALL .. $19.98 

DESERT FALCON $19.98 

NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 

BALLBLAZER $19.98 

BLUE MAX $19.98 



STAR RAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARCHON $19.98 

KARATEKA $19.98 

CHOPLIFTER $19.98 

GATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER $24.98 

BARNYARD BLASTER (XE gun) .. $24.98 

DARK CHAMBERS $29.98 

AIRBALL $29.98 

SUMMER GAMES $29.98 

CROSSBOW (XE gun) $29.98 

CRIME BUSTERS (XE gun) $29.98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC 


$4.98 


ZORRO 


$4.98 


BANDITS (48K 400.800) 


$4.98 


PROTECTOR II 


$4.98 


CLAIM JUMPER 


$4.98 


SYNTREND 


$4.98 



CROSSCHECK $4.98 

MOLECULE MAN $4.98 

CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASTEROID $4.98 



SPIDERMAN $4.98 

HULK $4.98 

VISICALC $24.98 

BOOKKEEPER W/ numeric keypad... $29.98 
GET RICH $39.98 



8-bit 



Bargains! 



Commbat 
Preppie I & II 
Tne Count 
Disk 50 (50 Games) 
Freaky Factory 
Laser Hawk 



W8$ 
ill; 



Special buys on 8-BIT Software! 



SAN JOSE COMPUTER 

THE ATARI STORE 

Sunrise Plaza 640 Blossom Hill Rd. San Jose, CA 95123 
(408)224-8575 • BBS (408) 224-9052 



"8-bit 
Bargains! 



Rocket Repairman 
Adventureland 
Pirate Adventure 
Secret Mission 
Voodoo Castle 

Technicolor Dream 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THATS IT. 
WARRANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 
PREPAYMENT: USE VISA, MASTERCARD. MONEY ORDER. CASHIER'S CHECK OR PERSONAL CHECK. 
PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH. CASHIER'S CHECK OR M.O. ONLY. 
Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders. 
Ad produced on an ATARI ST using Publishing Partner and printed on an ATARI SLM804 PostScript compatible laser printer. 



DISK BONUS 



Exwall 

Futuristic tank battle for two players. 



Battle it out for construction 
space, in this month's Su- 
per Disk Bonus. Exwall is 
a hard-hitting futuristic two player 
tank game written in assembly lan- 
guage. The program works on 8-bit 
computers with at least 48K mem- 
ory, disk drive and two joysticks. 

Exwall was written in fast-moving 
machine language by Andy Barton, 
who has been contributing to Antic 
since 1984. His programs include 
Spelling Flashcards (February 1989) 
and the ever-popular TYPO II. His 
Machine Language Stringer appears 
elsewhere in this issue. 

THE SCENARIO 

Across eight battle zones, the ro- 
bot war continues without end. 
Powerful robots battle it out for 
building space, over a terrain marked 
with stone fortress walls and blue 
rivers and lakes. Massive mobile fac- 
tories, the robots move about, build- 
ing and repairing the fortress walls, 
even as they try to destroy each 
other. 

Your robot carries a cannon that 
fires explosive shells — but so does 
your opponent's. In this high-tech 
slugfest, you must destroy your op- 
ponent's fortresses and robot factory 
without being destroyed yourself. 
Your ranking reflects your success. 

GETTING STARTED 

Don't try to run Exwall directly 
from the Antic Monthly Disk. In- 
stead, copy EXWALL.EXE to another 
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disk that includes the DOS.SYS file. 
Use DOS command E to rename EX- 
WALL.EXE to AUTORUN.SYS. Tiirn 
off your computer and remove all 
cartridges. Place the disk in Drive 1. 
Hold down the [OPTION] key if 
you're using an XL or XE. Tbrn on 
the computer, and Exwall will load 
and run automatically. 

Plug in two joysticks, one for each 
player. Use your joystick to move 
your robot factory up and down, 
forward, backward and diagonally. 
You can't move through walls, over 
water, or into the farthest quarter of 
your opponent's territory. 

To build a wall, move the robot 
factory to the desired place. Then 
move back 1 or 2 spaces and stop. 
A two-layer wall will be built in front 
of the machine. Construction will 
stop when the area in front of the 
machine and within the crane's 
reach is completed — or when you 
move the factory. 

Press the joystick button once to 
fire your cannon. Press it a second 
time to explode the shell. Press and 



release the fire button quickly, or the 
shell will explode before you want 
it to. You can use unexploded shells 
to knock narrow channels in your 
own defenses, and then fire through 
the channels as you hide in the rela- 
tive safety of your fortress. 

You can't move over water but 
you can build walls at the water's 
edge. When these walls are de- 
stroyed the debris will fill in the 
water and allow you to move on. 

A shell exploding next to a wall 
will penetrate deeply but not widely. 
Conversely, if the shell explodes be- 
fore it reaches a wall it will destroy a 
wider area but with less penetration. 

Crashing your robot into your op- 
ponent's will destroy both machines 
— and possibly get you out of a tight 
situation. But it won't help your 
ranking. On the other hand, daring 
players can significantly enhance 
their scores by moving in close and 
firing repeatedly into their oppo- 
nent's exploding robot. 

Your July 1989 Antic Disk— fea- 
turing the Exwall Super Bonus game 
as well as every type-in program 
from this issue — will be shipped to 
you within 24 hours after receiving 
your order. Just phone Toil-Free 
to the Antic Disk Desk at (800) 
234-7001. The monthly disk is only 
$% 95 (plus $2 for shipping and han- 
dling) on your Visa or MasterCard. 
Or mail a $5-95 check (plus $2 ship- 
ping and handling) to Antic Disk 
Desk, 544 Second Street, San Fran- 
cisco, CA 94107. A 
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FEATURE APPLICATION 



TapeTime 
LabelMaker 

Printing your VCR log. By Gary Coppola 



Print VCR labels showing titles, speeds, 
and times of your favorite movies and 
shows with TapeTime Labelmaker. A 
simple modification of Antic's Tape- 
Time program (January 1989), Tape- 
Time Labelmaker will make managing 
your VCR collection easier than ever. 
Works on 8-bit Atari computers with at 
least 48K memory, disk drive and an 
Epson-compatible printer. 



TapdTime Labelmaker is a la- 
bel printing utility that will 
allow you to print the title, 
speed and time of your favorite video- 
taped movies or television programs 
on any Beta or VHS label. I developed 
the label maker as an add-on to Paul 
Shannon's TapeTime (Antic, January 
1989) which determines the amount 
of time remaining on partially 
recorded VCR tapes. 

When Antic challenged readers to 
design a patch for an add-on labeler, 
I thought this should be no problem! 
A dozen or so lines of code and pres- 
to, a labelmaker. Well, after rummag- 
ing through all of my VCR tapes and 
checking out their labels, I realized 
that in nearly every instance, no two 
brands provided the same area and lo- 
cation to print in. In fact, even differ- 
ent tape grades of the same brand had 
different labels. So much for an easy 
patch. 

What evolved after several ap- 
proaches to the problem was a user- 
friendly program that automatically 
selects the print size on the label ac- 
cording to the number of titles you 
have entered. This allows you to have 
up to six titles on Beta format labels 
and up to seven titles on VHS labels. 
The positioning of the printing area 
is accomplished with only one user 
input. It's that easy! 



GETTING STARTED 

If you don't already have Tape- 
Time simply type in Listing 2, 
VCRLABEL.BAS, and be sure to SAVE 
a copy to disk before you run it. 

If you already have TapdTime, the 
patch can be typed and merged with 
the original listing. Type in Listing 1, 
TAPEMOD.LST, check it with TYPO 
II and LIST it to disk. LOAD the origi- 
nal TapdTime program and then EN- 
TER "D TAPEMOD. LST ' '. Don't forget 
to SAVE the merged file back to disk 
as "D:VCRLABEL.BAS ". 



Several lines of Tapdfime have been 
rewritten in order to accommodate 
the labelmaking patch. You'll find the 
complete TapdTime Labelmaker on 
this month's Antic Disk, ready to RUN 
without any modifications or merg- 
ing required. 

MAKING A LABEL 

When you RUN the modified ver- 
sion of TapdTime the first choice you 
will have to make is either Do Calcu- 
lation or Make a Label. If you select 
Do Calculation you will proceed ex- 
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actly as in the original TapeTime 
program. 

If you select Make a Label you will 
next be prompted to choose either 
Beta or VHS format. After typing your 
choice, a list of the more popular VCR 
tape brands will appear onscreen with 
a column of numbers under the head- 
ing of CMAX. This is a suggested value 
for the maximum number of charac- 
ters your title should contain in order 
for it to fit within the allowable space 
on that brand's label. 

After a short time, a scale with 
numbers ranging from 5 to 35 appears 
in the message area with room to en- 
ter your title right below it. This scale 
helps you easily determine the num- 
ber of characters in your title as you 
are typing it. After entering your first 



If your brand of tape is not among 
those in the list, make a trial label on 
paper to insure that your margin set- 
ting and title length are correct. An 
easy way to find the appropriate mar- 
gin setting is to hold your label next 
to the printers' column scale with its 
left edge on column 0. Then read the 
column number where you want 
your printing to begin. This is the 
margin setting. 

Once you determine satisfactory 
margin settings and title lengths for 
your particular brand of label, you can 
replace some of the brands on the list 
with your own brands and values. 
This way, you won't forget those 
numbers the next time you use the 
program. The lists are located in Lines 
3015-3070 in Listing 1. 



printer control codes used in this pro- 
gram are Epson codes. If you own a 
printer that is not Epson compatible 
you can replace the codes in Lines 
3200-3245 with your own printer 
codes. Each code has a REM statement 
following it so you know exactly what 
each code represents. Just look in 
your printer manual for the proper 
codes. 

When the program enters the print- 
ing mode and you input the margin 
setting, you will notice that the 
printer advances the label approxi- 
mately five-eighths of an inch, as a re- 
sult of the printer receiving the con- 
trol codes. If you don't take this into 
account you may have to reposition 
your label at this point. 

You can avoid this problem by turn- 
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title you will be asked for its speed 
and time. 

This sequence repeats, allowing 
you to enter up to a maximum of six 
titles for Beta and seven titles for VHS. 
If you have less than the maximum, 
just press [RETURN] when prompted 
for the next title and you will enter 
the printing mode. 

At this point, insert a label into the 
printer with the brand name or logo 
facing to the right. Align the label's left 
edge with column 0 (on many 
printers the column scale is located on 
the tear bar). 

HELPFUL HINTS 

Now, turn on the printer and, at the 
prompt, enter the margin setting. A 
list of VCR tape brands along with 
some suggested settings will appear. 
That's about it — press any key and 
your label will be printed. 



The size of type on the label is con- 
trolled by the number of titles you en- 
ter. In Beta format, if you have three 
titles or less, they will be printed in 
normal-size type. For more than three 
titles, the print size will be one-half 
that of normal. In VHS format, four 
titles or less will be in normal-size 
type, otherwise you will get the 
smaller type. If you expect the label 
to print in the smaller type, I recom- 
mend that you use all capital letters 
in your title for better readability. 

After entering your title and speed 
you are prompted for the program 
length (in minutes). This was done to 
keep the same format as in the calcu- 
lation portion of the program. In the 
labelmaking portion, however, this is 
not critical. If you would rather type 
2hr instead of 120 (minutes), go right 
ahead but remember you only have 
a maximum of three characters. The 



ing off the printer's line feed DIP 
switch when you first place your la- 
bel in the printer. (My interface has a 
line feed switch on it also, which 
makes this process easier.) After en- 
tering the margin setting the printer 
will now receive the codes without 
moving the label. Turn the line feed 
switch back on and press any key to 
print the label. 

If you need more room than is al- 
lotted on your brand name label, 
blank VHS pin-feed labels (sorry, Beta 
owners) are available in a variety of 
colors from SlideScribe, 714 1 Shady 
Oak Road, Minneapolis, MN 55344. A 

Gary Coppola ofBudd Lake, New Jersey 
is a senior research chemist for a major 

pharmaceutical company He has writ- 
ten two books and has over 75 scientific 

publications and patents. 

Listing on page 29 
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EGYPT 
CALENDAR 

C0MVERT5 
TODAY'S DATES 
TO THE ANCIENT 
EGYPTIAN 5Y5TEM 



By Chris Carrier 



Feel like a Pharoah! 
Convert any date 
from the Julian 
or Gregorian 
calendars back to 
the calendars 
used in ancient 
Egypt. This BASIC 
program works on 
Atari 8-bit computers 
with at least 48K 
memory. 



Your Atari can make you an 
Egyptologist. Egypt Cal- 
endar takes any date in 
the Julian or the modern 
Gregorian calendars, and gives the 
equivalent dates in both of the civil 
calendars used in ancient Egypt, one 
of which survives even to this day. 

Just enter the date, and a screen full 
of information about that day and 
year appears. Not only does the pro- 
gram give the original Egyptian calen- 
dar date, but the year is given as de- 
termined by the reigns of several 
ancient kings, or by the Alexandrian, 
Augustan and Coptic calendars. The 
program can even tell you the day of 
the week on which that date fell, or 
the Julian Day number, useful for as- 
tronomers. 

GETTING STARTED 

Type in Listing 1, EGYPT. BAS, 
check it with TYPO.II, and SAVE a 
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copy to disk before you RUN it. 

The program will then ask you to 
input a date. If the date is between 
1582-1923, you will be prompted to 
specify whether the date uses the 
Julian or Gregorian calendar. The 
Gregorian calendar began in 1582 
A.D., but the last nation to switch 
from Julian to Gregorian (Greece) did 
not do so until 1923. 

Then press [RETURN] to see how 
your date translates. At the top of your 
screen the date you entered will be 
displayed, followed by the Julian Day 
Number. Used by chronologists and 
astronomers, this number simply tells 
you how many days have passed since 
January 1, 4713 B.C. QD #0). 

The original Egyptian calendar date 
follows, with the year as determined 
by eight different eras. At the very bot- 
tom of the screen is the date of the 
Sothic Rising, the astrological phe- 
nomenon used by the ancient Egyp- 



tians to track the actual, as opposed 
to calendar, year. 

During the first couple of millenia 
of the calendar's existence, the 
months had no names, but were sim- 
ply referred to as the first, second, 
third. . .month of their season. 

EGYPTIAN DATES 

The ancient Egyptians, among their 
other accomplishments, were proba- 
bly the first people in the history of 
the world to discover the number of 
days in a year down to the nearest 
integer. 

The original version of the Egyp- 
tian calendar had a week of 10 days, 
a month of 3 weeks or 30 days, a sea- 
son defined as 4 months or 120 days, 
three seasons equaling 360 days, 
which were followed by five un- 
named epagomenal, or "outside the 
calendar," days to total 365 days in a 
year. 



The year began with the season of 
Akhit (Flood, as in Nile River), fol- 
lowed by Perit (Winter) and Shemu 
(Summer). Egypt Calendar gives this 
date thus: Shemu 2-14 for the 14th day 
of the second month in the summer 
(Shemu) season. The five epagomenal 
days are treated by the program as a 
five-day, fifth month of Shemu. Be- 
cause a tradition developed that any 
work done on the epagomenal days 
was unlucky, the ancient Egyptians 
ended their year with a five-day 
festival. 

The great advantage of the Egyptian 
calendar is that it was easy to use — it 
survived in daily use for more than 
3,000 years. Astronomers and 
historians used the calendar for con- 
venience of chronology as late as the 
16th century. France tried a version 
of it shortly after the French Revolu- 
tion, in the late 18th century. This 
calendar has even drawn praise from 
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a 20th century astronomer (Neuge- 
beuer, "A History of Ancient Mathe- 
matical Astronomy") for being the 
"most sensible of all calendars used 
by mankind", with its easy-to-use 
10-day weeks, 30-day months, an|K 
365-day years. 

CORRECTIONS NEEDED 

The great disadvantage of Egyptiat 
calendars is that the number of days 
in the year is not 365, but rather 
365 2422 days in a tropical year (the 
cycle of the seasons) or 365. 2564 days 
in a sidereal year (one orbit of Earth 
with respect to the stars). 

Therefore, the Egyptian calendar 
ran about 1 day fast every 4 years, so 
if an annual event occurred on, say, 
Akhit 1-1 in a given year, it would oc- 
cur on Akhit 1-2 after four years, Ak- 
hit 1-3 after eight years, during the 
second month of Akhit after about 
120 years, and eventually, the event 
would go around the entire year. It 
would have been obvious within, say, 
100 and certainly before 200 years 
that the calendar needed to be cor- 
rected for the true length of the year. 

However, the calendar wasn't cor- 
rected for thousands of years, but the 
Egyptians invented a second new year. 
The "true" year, as opposed to the 
calendar year, began when Sirius, the 
brightest star in the sky (except for our 
own sun) appeared for the first time 
in the predawn sky after having been 
behind the sun and invisible. Because 
the Egyptian name for Sirius is 
"Sothis," this annual event is called the 
Sothic Rising. 

On July 20, 139 A.D., a Roman liv- 
ing in Egypt by the name of Censori- 
nus observed a Sothic Rising on the 
first day of the Egyptian year. He fur- 
thermore stated that as the Julian 
calendar contained 365 . 2 5 days, and 
the Egyptian 365, that 1460 Julian 
years equaled 1461 Egyptian years, 
and he labeled this the "Sothic Cycle," 
or the "Great Year" of the Old Egyp- 
tian calendar, now known as the 
"Julian Sothic Cycle." 

Since Censorinus' time the exact 



length of the sidereal year has become 
known, and the true Sothic Cycle is 
1422 Old Egyptian years long. The 
next time a Sothic Rising coincides 
with Akhit 1-1 will be on August 27, 
2985 A.D. 

I Also of note is the fact that the 
Sothic Rising occurs in the Julian 
calendar about 1 day later every 150 
years, and in our Gregorian calendar, 
1 day later every 72 years. This is be- 
cause of the precession of the 
equinoxes, the same phenomenon 
which makes Polaris the North Star 
in our lifetimes and Thuban the North 
Star during the building of the Great 
Pyramid. 

Although any estimates as to exactly 
when the Egyptian calendar began to 
function are only educated guesses, 
Sothic Risings on Akhit 1-1 occurred 
in 1282-85 B.C., 2706-09 B.C., and 
4130-33 B.C. The program designates 
the last mentioned date as Cycle #0, 
and it is believed that the calendar 
may have started regular use about the 
beginning of Cycle #1. 

REIGNS AND ERAS 

There are two surviving accounts 
of ancient Egyptians observing a 
Sothic Rising — during the reigns of 
Senworset III and Amentohep I. Be- 
cause of this, we can calculate the ex- 
act year their reigns began, and this 
date is given in the program; in an- 
cient Egypt, and in fact in most of the 
world's monarchies, the year used is 
the number of years since the acces- 
sion of the current monarch. 

In the second century A.D. the 
Greek astronomer Ptolemy compiled 
a "Canon of Kings," a reference book 
that attempted to standardize the dates 
of the reigns of the monarchs of vari- 
ous empires. As his reference, he used 
the 365-day Egyptian year because of 
its convenience and established a year 
1 at the crowning of the Babylonian 
king Nabonassar. 

The Nabonassarian Era is the most 
common one used in connection 
with the Old Egyptian calendar, al- 
though it was never used by either the 
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Egyptian government or its subjects. 
(In fact, the World Almanac 1989 
gives in "Chronological Cycles" the 
opening of the Nabonassarian Year 
2738 on April 26, 1989— a fact that 
can be checked using Egypt Calendar.) 

When Augustus Caesar conquered 
Egypt, shortly after the Roman Em- 
pire adopted a 365.25 day year, he 
decreed that a 366th day be added to 
the Egyptian calendar in every fourth 
year, thereby setting up a new 365.25 
day calendar with an Augustan Era 
(from Augustus' accession) and an 
Alexandrian Era (from Rome's con- 
quest of Egypt). 

After Augustus' death, however, the 
new calendar went ignored for almost 
300 years, until the Coptic Christian 
Church in Egypt decided to start us- 
ing it, with an era beginning with the 
reign of the then-current Roman em- 
peror, Diolectian. Since Diolectian is 
primarily remembered for persecu- 
tion of and atrocities against Chris- 
tians, the Coptics refer to their era, 
which they use even today, as the "Era 
of Martyrs." The year 1706 of the 
Coptic Era of Martyrs begins on Sept. 
11, 1989. 

Egypt Calendar gives the date in the 
revised 365. 25-day Egyptian calendar, 
and as names for the months were in 
use by the time of the reform, these 
month names are used instead of the 
season and month number. The year 
in the New Egyptian calendar begins 
on August 29 or 30 in the Julian calen- 
dar, and between 1900 and 2099 A.D. 
in the Gregorian calendar, on Septem- 
ber 11 or 12. The Alexandrian, Augus- 
tan, and Coptic eras are all given by 
the program. 

This program was inspired by the 
chapter on the Egyptian calendar in 
O. L. Harvey's "Calendar Conversions 
by way of the Julian Day Number." 

LIST OF VARIABLES 

CAU — the calendar in which the 
date is being inputted, either Julian or 
Gregorian. Anyone entering a date be- 
tween 1582-1923 will be prompted 
for the calendar they want. 
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ENSEASOM— The season of the 
year, in the original Egyptian calendar. 

EMO— The number of the month 
in the season in the original Egyptian 
calendar. 

EBM— The day of the month in the 
original Egyptian calendar. 

DS— The day of the (seven day) 
week. 

M#— The month of the year in the 
Julian or Gregorian calendar. 

DATE— The day of the month, 
Julian or Gregorian. 

I YEAR— The number of the year, 
Julian or Gregorian. 

ERA$ — A.D. or B.C. 

JDAY— Julian Day Number, used by 
chronologists and astronomers, and 
is a linear count without end. JD #0 
was January 1, 4713 B.C.— in the late 
20th century A.D., the number is be- 
tween 2440000 and 2450000. 

JSC— Julian Sothic Cycle of Cen- 
sorinus. 1461 original Egyptian years 
long. 

TSC— True Sothic Cycle 1424 origi- 
nal Egyptian years long. 

EY— Number of the original Egyp- 
tian year in the current Julian Sothic 
Cycle. 

TEY— Number of the original Egyp- 
tian year in the current True Sothic 
Cycle. 

SENWORSET3— Number of origi- 
nal Egyptian years since the corona- 
tion of Senworset III. 

AMENHOTEP1— Number of origi- 
nal Egyptian years since the corona- 
tion of Amentohep L 

NABONASSAR— Number of origi- 
nal Egyptian years since the corona- 
tion of Nabonassar. 

CY— Year of the Coptic Era of Mar- 
tyrs, expressed in the New Egyptian 
calendar with a 366th day every 4th 
year. 

ENMONTHS— The month of the 
Egyptian year, expressed in the 
365 25 day New Egyptian calendar. 

CBM— The day of the month in the 
New Egyptian calendar. 

ALEXANDRIAN— The day of the 
month in the New Egyptian calendar, 
counting from Augustus' conquest of 



Alexandria and his attempt to institute 
a 365 25 day calendar in Egypt. 

AUGUSTAN— The day of the month 
in the New Egyptian calendar, count- 
ing from year 1 of Augustus' reign as 
Emperor of Rome. 

SRMONTH8 — The Julian or 
Gregorian month in which Sirius 
makes its first appearance in the early 
morning (the Sothic Rising) just be- 
fore dawn, after having been invisi- 
ble for a month or so because it was 
above the horizon during daylight 
hours only. 

SR— The day of the month on 
which the Sothic Rising occurs. A 



Chris Carrier lives in Sacramento, Cali- 
fornia. His interests include astronomy, 
chronology and games. His articles have 
appeared in USA Today and the Barrow 
Sun, the northernmost newspaper in 
North America. This is his first appear- 
ance in Antic. 

Listing on page 28 
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Get an answer fast! 

Call 
(415) 372-6002 

Write: 

Antic Customer Service 
P.O. Box 1569 
Martinez CA 94553 
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GAME OF THE MONTH 



Red Squares 

Challenge for your mind and your reflexes. By Marc Abramowitz 




Tired of shoot-'em-ups and mazes? 
This colorful strategy game, 
adapted from the popular Russian 
import, challenges both your mind 
and reflexes. This BASIC program 
works on 8-bit Atari computers with 
at least 48K and disk drive. 



Are you sick and tired of shoot-'em- 
up games? Do the words 4 'Space In- 
vaders" drive you crazy? Well, if 
you're tired of senseless violence, 
ringing ears and joystick-cramped 
hands, try Red Squares, a challenging 
strategy game that challenges your 
mind and reflexes. 

Red Squares is based on an imagi- 
native Russian computer game. A 
popular American version has been 
released for several makes of personal 
computers including the Atari ST— 
but not for the 8-bit Atari. 

But now this oversight is remedied. 
Red Squares lets you play this color- 
ful and exciting new game on your 8- 
bit Atari. The game features 50 speeds 
and other options for added 
challenge. 

GETTING STARTED 

Type in Listing 1, SQUARES. BAS, 
and check it with TYPO II. Be sure 
to SAVE a copy before you RUN it. 

If you have trouble typing the spe- 
cial characters in lines 100 and 8010, 
don't type them in. Instead, type List- 
ing 2, check it with TYPO II and SAVE 
a copy. When you RUN Listing 2, it 
creates these hard-to-type lines and 
stores them in a file called LINES. LST. 

To merge the two programs, LOAD 
"D.SQUARES.BAS" and then ENTER 
"D: LINES. LST." Remember to SAVE 
the completed program before you 
RUN it. 

Various shapes, all made of four 



squares, fall into a pit. The object is 
to move and rotate the shapes, guid- 
ing them into position at the bottom 
of the pit. Whenever the shapes fill 
a complete line across the bottom of 
the pit, that line disintegrates, and the 
pieces above move down. The game 
is lost when the pieces are piled up 
all the way to the top of the pit. 
You get a certain number of points 



for completing a line, depending on 
how close it is to the top of the pit. 
The closer the line is to the top of the 
pit, the more points you get. You also 
score one point for each shape that 
falls into the pit. Even if you can't 
complete many lines, you should try 
to survive as long as possible. 

When you first RUN Red Squares, 
press [START] or the joystick button 
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Vppe-ln Software 

Light show 
with a hidden message. 




By Ernie Negus 



to reach the options screen. Move the 
joystick up and down or press [SE- 
LECT] to change the speed, which 
ranges from 1 to 50. As you play, the 
speed increases gradually, so don't 
start at too high a speed. 

Moving the joystick right and left 
or pressing [OPTION] lets you add 
extra challenge to the game, by start- 
ing the game with one to ten layers 
of randomly-placed pieces in the bot- 
tom of the pit. 

FALLING SQUARES 

Once you've selected speed and 
height, press [START] or the joystick 
button to begin the game. The pit will 
appear, and pieces will start falling 
from above, one by one 

Move pieces right or left using the 
joystick, or by pressing [J] and [L] . To 
rotate a piece 90 degrees, press the 
joystick trigger, or [K]. Pieces may be 
rotated several times — if the shape 
changes with such rotation. The 
square doesn't rotate, since the shape 
would remain the same. 

Try to leave as few gaps as possible 
when landing pieces. The more lines 
you complete, the more room you'll 
have for future pieces — and the more 
you manage to get into the pit, the 
higher your score. 

These rules are simple, but play can 
be challenging. With a little practice, 
you'll know which pieces will fit 
which spaces best — but the piece you 
need most may take its time about ar- 
riving. As the pieces fall faster and 
faster you'll find yourself struggling to 
place each piece just so. It takes in- 
tense concentration and some sharp 
thinking to truly master the falling 
squares. 



Marc Abramowitz is a Freshman at Port 
Richmond High School in Staten Island, 
New York. Besides computers, his interests 
include playing the guitar and fantasy 
role-playing games— particularly Teen- 
age Ninja Mutant Turtles and Advanced 
Dungeons and Dragons. This is his first 
appearance in Antic. 
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Many people who use 
computers are highly 
analytical thinkers. 
There is nothing wrong 
with that, but new ideas that are dif- 
ficult to prove seem a little off-the-wall 
to them. I myself was very skeptical 
about subliminal perception. I simply 
did not believe the claims that some 
people made about it. After reading 
a book on the subject, I decided to 
try out my own experiment with sub- 
liminal messages. 

Flash! is one of my experiments, a 
short machine-language program that 
lets you enter a message, which is then 
flashed on the screen in a series of 
dots. 

GETTING STARTED 

Type in Listing 1, FLASH. BAS, 
check it with TYPO II and SAVE a 
copy before you RUN it. When RUN, 



FLASH. BAS creates a machine lan- 
guage program called FLASH.EXE. 
Antic Disk owners will find 
FLASH.EXE on the monthly disk. 

Don't try to run Flash! from 
the Antic Monthly Disk. Copy 
FLASH.EXE to another disk that has 
the DOS.SYS file on it. Then rename 
FLASH.EXE to AUTORUN.SYS. 

Tbrn your Atari off and place your 
Flash! disk in drive 1. Now, turn on 
your Atari and Flash! will automati- 
cally load and start. 

CONVINCING EXPERIENCE 

My first experiment with sublimi- 
nal perception convinced me that it 
worked. At the time, about two years 
ago, I upgraded my 130XE to 1Mb of 
memory. I was also running a 24-hour 
bulletin board. 

To show off the power of a 130XE 
with one megabyte, I wrote a "Spin- 
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Give yourself a subliminal boost — or test the power of 
subliminal messages on your family and friends with 
Flash! This BASIC program creates a machine language 
program that works on 8-bit Atari computers with at least 
48K memory. 



ning World" demo program. Using a 
map-generating program, I created 
120 maps of the globe, incrementing 
the longitude three degrees for each. 

I then loaded these maps into the 
one megabyte of memory and wrote 
a program to switch the banks dur- 
ing vertical blank time. In this way, I 
could show the 120 different maps in 
rapid succession, and the effect was 
quite impressive. I even had paddles 
to control the speed, and if the trig- 
ger was pressed I could use the pad- 
dle values to determine the frame dis- 
played. Rotating the paddle control 
yielded a very weird effect, as the 
globe would eerily rotate along with 
it. 

I was working at a computer store, 
demonstrating my program at various 
trade shows. It was quite a popular 
display. As an experiment, I added an- 
other frame that would flash for a few 
milliseconds just before the first frame 
when the globe was spinning at full 
speed. 

At the time, my BBS was very inac- 
tive. I was lucky to get three or four 
calls a day. So naturally my sublimi- 
nal suggestion was, "Call BEE-CATS 
BBS!" written in huge letters on the 
extra frame. 

The effect was a slight flickering of 
the screen when the demo was run- 
ning. The flicker was barely percept- 
ible and far too fast to read no matter 
how hard you looked. 

The demo with its subliminal mes- 
sage ran at a trade show for three days. 
The night of the first day I had fifty 
calls on my BBS. The next day, I had 
over 200! 



Talking with some of the callers 
(most were already logged in, but 
hadn't called for a long time) I found 
they all had been to the trade show. 
Not only that, most did not even 
know that I had written the spinning 
world demo! It was this experience 
that caused me to believe wholeheart- 
edly in subliminal perception. 

HOW FLASH WORKS 

Flash! is another experiment in sub- 
liminal suggestion. Based on a con- 
cept by artist and engineer Bill Bell, 
it works on the phenomenon of the 
eye's perception of light and the way 
the subliminal mind can interpret the 
patterns from the eye. 

After you run the program you will 
be prompted for a phrase. Enter a sin- 
gle word or a short phrase. For the 
best results, keep the phrase as short 
as possible, with not more than four 
words. After that, the screen clears 
and a column of eight boxes will be- 
gin to flash rapidly on the screen. 

Most people who see this will just 
think it's a pretty display. If they try 
to concentrate on the flickering boxes 
to get any meaning they will proba- 
bly think even less of it. But when 
they look away and start thinking 
about something else, the words you 
typed may suddenly appear in their 
imagination. 

To understand how the program 
works, visualize one of those electric 
news signs, like the one in New \brk's 
Times Square, where words travel 
across a panel. The sign contains 
several columns of bulbs that turn on 
and off in a special sequence to pro- 



duce the moving message effect. 

Now visualize just looking at one 
of the columns of lights. After a cer- 
tain amount of time, the whole mes- 
sage gets scrolled through that one 
column. But it looks like just a bunch 
of flickering lights. 

Your subliminal mind is able to per- 
ceive the message being scrolled 
through that single column of lights, 
but your conscious mind cannot 
comprehend it as a message. It is only 
when you look away, when you may 
finally get the message coming 
through. 

This makes Flash! a great program 
for developing your subconscious 
mind. For example, if you want to lose 
weight, use the phrase, "I will be thin" 
on Flash!. If you are trying to develop 
a more positive attitude try "I am 
happy." Try to avoid negative words 
such as "not" or "no" or "won't" — 
these words tend to confuse the sub- 
conscious mind and will often pro- 
duce the opposite of the desired 
effect. 

To exit Flash! while it is displaying 
your phrase, just press any key. To 
slow down the message, press the [SE- 
LECT] key and release it several times. 
To speed it up, press the [OPTION] 
key several times. The audible click 
that occurs happens at the end of the 
phrase, just before the message is recy- 
cled through. a 



Ernie Negus is a longtime contributor to 
Antic Currently he lives in Bothell, Wash- 
ington, working as a technician on state- 
of-the-art ultrasound equipment. 
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ANTIC, THE ATARI RESOURCE 



SOFTWARE LIBRARY 

TYPING SPECIAL ATARI CHARACTERS 



The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [H] 
key— or [A ] on the 400/800— then 
release it before pressing the next 
key. (Press [ Q|] or [ A ] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key's [/] and the 
[CONTROL] [F] symbol [0j. 



NORMAL VIDEO 


FOR 


TYPE 


FOR TYPE 


THIS 


THIS 


THIS THIS 


H CTRL 


» 


ffl CTRL S 


LB CTRL 


A 


m CTRL T 


□ CTRL 


B 


IB CTRL U 


ffl CTRL 


C 


D CTRL V 


91 CTRL 


D 


ffl CTRL W 


ffl CTRL 


E 


ffl CTRL X 


SJ CTRL 


F 


B CTRL Y 


S CTRL 


G 


ffl CTRL Z 


a CTRL 


H 


B ESC ESC 


Q CTRL 


I 


ffl ESC CTRL 


U CTRL 


J 


EB ESC CTRL - 


O CTRL 


K 


SB ESC CTRL + 


E CTRL 


L 


ffl ESC CTRL * 


CI CTRL 


M 


ffl CTRL . 


□ CTRL 


N 


ffl CTRL ; 


B CTRL 


0 


BJ SHIFT = 


BE CTRL 


P 


H ESC SHIFT 


ffl CTRL 


Q 


CLEAR 


H CTRL 


R 


ffl ESC DELETE 
ffl ESC TAB 



INVERSE VIDEO 



FOR 
THIS 



□ 

□ 

0 

□ 
a 



TYPE 
THIS 

ESC 
SHIFT 

DELETE 
ESC 
SHIFT 

INSERT 
ESC 
CTRL 
TAB 
ESC 
SHIFT 

TAB 
A CTRL . 
A CTRL ; 
A SHI FT = 
ESC CTRL 2 
ESC 
CTRL 

DELETE 
ESC 
CTRL 
INSERT 



TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic's type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN] . 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you've mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST. To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST "D:FILENAME",0,31999, then [RETURN], then NEW, then ENTER "D: FILENAME", 
then [RETURN] . Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 



32068 REM TYPO II BY ANDY BARTON 

32618 REM UER. 1.8 FOR ANTIC MAGAZINE 

32626 CLR :DIM LINES C128> : CLOSE »2 : CL0 
5E »3 

32638 OPEN »2 , 4 , 8 , "E" : OPEN »3,5,6,"E" 

32848 ? "is" : POSITION 11.1:? "OHHtiMUriB" 

32856 TRAP 32848 i POSITION 2,3:? -Type 
in a progran line" 

32866 POSITION 1,4:? INPUT »2;LINE 

$:IF LINE$="" THEN POSITION 2,4:LIST B 
:G0T0 32668 

32878 IF LINE$ci,l>="*" THEN B=UAL cLIN 
E$ C2, LEN CLINESJ > J : POSITION 2,4:LIST B: 
GOTO 32868 

32888 POSITION 2,18:? "CONT" 

32898 B = UAL CLINE^J : POSITION 1,3:? " ; 



NY 
CN 
ET 

CE 
OR 



UU 

UJ 
JU 
EH 
BH 
HB 
IE 

UG 



2188 
2118 
2128 
: P05 
2138 
2148 
INES 
TO 3 
2158 
NS+ c 
2166 
2178 
2188 
2196 
2286 
2218 
LCOD 
2228 
Mat 
oue . 



OKE 842,13:ST0P 
OKE 842,12 

i POSITION 11,1:? ••■UnftMBIillB 

ION 2,15:LI5T B 
= 8 : ANS = C 

OSITION 2,16:INPUT »3;LINE$:IF 

THEN ? "LINE " ; B ; " DELETED" G 
58 

OR D=l TO LENCLINESJ :C=C+l:ANS= 

A5CcLINE$cD,D>)> :NEXT D 

0DE = INT CAN5'676* 

0DE= ANS - CC0DE«676> 

C0DE = INT CC0DE'26> 

C0DE = C0DE- CHC0DE*2 6> + 65 

C0DE=HC0DE+65 

OSITION 8,16:? CHRS CHC0DE> ; CHRS 



OSITION 2,13:? 

press MMHI in™ II 
GOTO 32658 



'If CODE does no 
and edit line a 
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Egypt Calendar 



Article on page 20 



LISTING 1 



Don't type the, 
TYPO II Codes! 



5 REM EGYPTIAN CALENDAR 
18 REM BY CHRIS CARRIER 

15 REM CC>1989, ANTIC PUBLISHING INC 
28 DIM D*C9> ,M$C9» ,ERA*c5> ,CAL$ci8> , EN 
MONTHS ci5i , ENSEAS0N$c7> , SRM0NTH$c9> 
25 POKE 718,14:P0KE 712,14:P0KE 789,14 
:? ••H3»:? :? :? 

35 ? "This will give you the date in b 
oth Egyptian calendars/ and the "; 
3? ? "heliacal rising of Sirius." 

38 ? :? :? "Type in a YEAR, MONTH, DAT 
E" 

39 ? "Clf date is BC, type a '-' befor 
e the year.)":? 

48 ? "YEAR ";:GOSUB 418:INPUT YEAR:? " 
MONTH ";:INPUT MONTH:? "DATE ";:INPUT 
DATE 

41 IF YEAR<1582 THEN CAL$="J":GO TO 45 



LC 
MT 



42 IF YEAR>1923 THEN CAL*= 



GO TO 45 



43 ? :? " Wregorian or Italian Caienda 
r? "; 

44 INPUT CALS 

45 I YE AR= YEAR 

48 IF I YEAR< 8 THEN I YE AR = 8 - 1 YE AR : BC = 1 

49 IF BC=8 THEN ERA$="A . D . " 
58 IF BC = 1 THEN ERA$ = "B.C" 
68 IF YE AR < 0 THEN YEAR = YE AR + 1 
78 JYEAR=YEAR+4712 

88 JDAY=8 

98 JDAY=JDAY+ cJYEAR«365> 

95 REM *** ADD LEAP YEARS 

188 LDAY5=1178+INT cYEAR'4> 

118 JDAY=JDAY+LDAYS 

138 JD A Y= JD A Y+2 

135 IF CAL$="J" THEN 168 

148 JDAY=JDAY~INT cYEAR'100> 

158 JDAY= JDAY+INT cYEAR/4883 

168 IF M0NTH=2 THEN JDAY=JDAY+31 

161 REM LEAP YEAR 

163 IF YEAR'4=INTcYEAR'4» THEN X=l:DAT 
E=D ATE+1 

164 IF CAL$="J" THEN 168 

165 IF YEAR'488=INT cYEAR'408> THEN X = l 
: D ATE=D ATE+1 

168 IF X=l THEN D ATE=D ATE - 1 

169 IF X = l AND MONTH > 2 THEN JD A Y= JD A Y+ 
1 

178 IF M0NTH=3 THEN JDAY=JDAY+59 
188 IF MONT H = 4 THEN JDAY=JDAY+90 
198 IF M0NTH=5 THEN JD A Y= JD A Y+128 
288 IF M0NTH=6 THEN JD A Y= JD A Y+151 
218 IF M0NTH=7 THEN JD A Y= JD A Y+181 
228 IF MONTH = 8 THEN JD A Y = JD A Y + 212 
238 IF M0NTH=9 THEN JD A Y= JD A Y+243 
248 IF MONTH = 18 THEN JD A Y = JD A Y + 273 
258 IF MONTH=ll THEN JD A Y= JD A Y+384 
268 IF M0NTH=12 THEN JD A Y= JD A Y+334 
278 JDAY=JDAY+DATE 

271 IF CAL*="J" THEN JDAY= JDAY -2 

272 IF X=l THEN JDAY= JDAY-1 

275 IF CAL$="J" THEN 298 

276 IF YEAR'468=INT CYEAR'4801 THEN 288 

277 IF YEAR'108=INT cYEAR'100> AND MONT 
H<3 THEN JDAY=JDAY+1 

288 IF YEAR'488=INT cYEAR'400> THEN JD A 
Y=JDAY-1 : D ATE=D ATE - 1 
298 DOU=JDAY 

388 IF D0U>788888 THEN DOU=DOU- 700008 
385 IF D0H<1 THEN DOW=DOU+700000 
318 IF D0H>78888 THEN DOU=DOW- 70000 
328 IF D0U>7888 THEN D0U=D0U~7888 
338 IF D0U>788 THEN DOW=DOW 700 
348 IF DOW>70 THEN DOU=DOU~70 

345 IF D0U>7 THEN D0W=D0W-7 

346 IF D0U>7 THEN GOTO 388 
348 IF D0U<1 THEN GOTO 385 

358 RESTORE 1188:F0R CJ = 1 TO DOW : RE AD 
D$ : NEXT CJ:GOTO 588 

488 FOR CJ = 2 TO 14 : POKE 789,CJ:NEXT CJ 
: RE T U RN 

418 FOR CJ=14 TO 2 STEP -l:POKE 789, CJ 
: NEXT C J : RETURN 



UO 
SU 



JC 
GO 

ou 

E5 

IP 

KO 

UO 

LT 

TB 

BL 
QD 
ZO 

GM 
BK 

X5 
AT 
HZ 
FU 
UR 

UX 
MC 
RR 
OM 

KR 

MI 

KC 

MZ 
MO 
JR 

ZK 
QH 
OL 
UL 
FO 
UC 
TG 
PX 

ZK 

FI 

BU 

BU 
BD 
SN 

KP 
FU 

RU 
PX 
MS 

BO 
HM 

UC 
CU 



588 RESTORE 1888:F0R CJ=1 TO MONTH : RE A 
D MS : NEXT CJ 

1008 DATA JANUARY, FEBRUARY, MARCH, APRIL 
, MAY, JUNE, JULY, AUGUST, SEPTEMBER, OCTOBE 
R, NO U EMBER, DECEMBER 

1108 DATA TUESDAY, WEDNESDAY, THURSDAY, F 
RID AY, SATURDAY, SUNDAY, MONDAY 
1288 DATA THOUT , P A APE , H A TOR , KI AHK , TOBE 
,MSHIR, PARMHAT, PARMUTE, PASHONS, PAONE, E 
PEP,MESORE, EPAGOMENAL 

2000 REM ORIG. EGYPTIAN CALENDAR 

2001 EBM=JDAY-171867 

2002 GOSUB 480:? "ftj" : POSITION 12,12:? 

"■fNmm^dimr'iiLii^imHHH" ;:gosub 410 

2810 IF EBM< 8 THEN EBM = EBM + 533265 : E Y = E 
Y1461 

2815 IF EY<8 THEN J5C= JSC - 1 : E Y=E Y+1461 

2820 IF EBM>533265 THEN EBM=EBM- 533265 
: EY = EY + 1461 

2830 IF EBM>36500 THEN EBM=EBM- 36500 : E 
Y=EY+100 

2040 IF EBM>3650 THEN EBM=EBM- 3658 : E Y= 
EY + 10 

2050 IF EBM>365 THEN EBM=EBM- 365 : E Y=E Y 
+ 1 

2060 IF EBM>365 THEN 2010 

2061 TEY=EY-111 

2065 IF EY>1461 THEN JSC= J5C+1 : E Y=E Y - 1 
461 

2066 IF EY>1461 THEN 2065 

Y 9 1424 F TEY>1424 THEN TSC=TSC+1 : TEY=TE 

2068 IF TEY>1424 THEN 2067 

2070 IF EBM< 1 THEN 2010 

2100 REM 

2105 E5EA50N=1 

2110 IF EBM>120 THEN EBM = EBM- 120 I E5E AS 
ON=ESEASON+l 

2128 IF EBM>120 THEN 2110 

2125 REM 5 EPAGOMENAL DAYS MADE 

2126 REM A 5TH MONTH OF SUMMER 

2127 IF E5EAS0N=4 THEN ESE A50N=3 i EBM=E 
BM+120 

2130 IF 
II " 

2131 IF ESEA50N=2 THEN ENSEA50N$= 



ESEAS0N=1 THEN ENSEASON$=" AKH 



PER 



2132 IF ESEAS0N=3 THEN ENSEASON$=" SHE 
MU " 

2200 REM MONTH AND DAY 

220b EMO=l 

2210 IF EBM>30 THEN EBM=EBM- 30 : EMO=EMO 
+ 1 

2220 IF EBM>30 THEN 2210 
2300 REM COMPUTE ERAS 

2 310 SENW0RSET3= c c JSC -13 »14 61 J -904 + EY 
2 32 0 AMENTOHE Pl= c c JSC - 13 *1461) -1238 + EY 
233 0 NABONASS AR= c c JSC - 1* *1461> -2036 + EY 
3000 REM 365.25 DAY CALENDAR 
3100 CBM=JDAY-1624664 

3110 IF CBM<0 THEN CBM=CBM+1461 00 : C Y=C 
Y-400 

3120 IF CBM>146100 THEN CBM=CBM- 146100 
: CY=CY+400 

3130 IF CBM>14610 THEN CBM^CBM- 1461 0 : C 
Y=CY+40 

3140 IF CBM>1461 THEN CBM=CBM~1461 i CY= 
CY + 4 

3150 IF CBM>1461 THEN 3120 
3160 IF CBM<0 THEN 3118 

3288 FOR CJ=1 TO 3 : IF CBM>365 THEN CBM 
=CBM-365 : CY=CY+1 
3281 NEXT CJ 

3218 IF CBM>38 THEN CM=CM+1 : CBM=CBM~38 
:IF CBM>38 THEN 3218 
3238 CM=CM+1 

3388 REM NAMES OF MONTHS 

3318 RESTORE 1288:F0R CJ=1 TO CM : READ 

ENMONTHS : NEXT CJ 

3788 REM OTHER ERAS 

3718 ALEXANDRIAN=CY+388 

3728 AUGUSTAN=CY^312 

4800 REM SOTHIC RISING 
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4918 5R = 199 . 365967 + cYEAR* C549 . 5' 864 00 3 

3 

4815 IF CAL$="G" THEN 5R=5R+INTcYEAR'l 
883 -2 

4816 IF CAL$="G" THEN SR=SR - INT c YE AR'4 
883 

4188 IF 5R>365.25 THEN 5R=5R-365.25 

4181 IF 5R>365.25 THEN 4188 

4182 IF 5R<8 THEN SR=5R+365.25 

4183 IF 5R<8 THEN 4182 
4118 5RM0NTHS=" JANUARY" 

4128 IF 5R>31 THEN SRMONTH$ = ,i FEBRUARY" 

4138 IF SR>59.25 THEN SRMONTH$="MARCH" 

4148 IF SR>98.25 THEN SRMONTH$=" APRIL" 

4158 IF SR>128.25 THEN SRMON t H$="MA Y" 
4168 IF 5R>151.25 THEN 5RMQNTH$=" JUNE" 

4178 IF 5R>181.25 THEN 5RM0NTH$-"JULY" 

4188 IF 5R>212.25 THEN SRMUNTH$="AUGU5 
T" 

4198 IF 5R>243.25 THEN 5RM0NTH$-"5EPTE 
MBER" 

4288 IF 5R>273.25 THEN SRMUNT H $ " U C T U B 
ER" 

4218 IF 5R>384.25 THEN 5RMUNTH$="N0UEM 

BER" 

4228 IF SR>334.25 THEN 5RM0NTH$="DECEM 
BER" 

4328 IF 5RM0NTH$=" FEBRUARY" THEN 5R=5R 

-31 

4338 IF 5RMQNTH$=" MARCH" THEN 5R=5R-59 

. 25 

4348 IF 5RM0NTH$=" APRIL" THEN SR=SR-90 
.25 

4358 IF SRMONTH$="MAY" THEN SR=SR-128. 
25 

4368 IF SRMONTH$="JUNE" THEN 5R=5R-151 

. 25 

4378 IF SRMONTHS="JULY" THEN SR=5R-181 
. 25 



RP 

XF 

SZ 

DG 

DT 

XP 
ER 
FY 

RJ 

IU 

on 

AK 
AH 

AL 
BX 

JU 

HI 

YX 

MR 

BU 

RF 

PX 
OX 

HQ 

PX 

HY 



4388 IF SRM0NTH$="AUGU5T" THEN 5R=SR-2 
12.25 

4398 IF 5RM0NT H $ =" SEPT EMBER" THEN SR = S 

R-243.25 

4488 IF 5RM0NTHS=" OCTOBER" THEN SR=5R- 

273 .25 

4418 IF SRMONTH$="NOUEMBER" THEN 5R=5R 

-384 .25 

4428 IF 5RM0NTH$=" DECEMBER" THEN SR=5R 

-334 .25 

4988 5R=INT C5R*13 
4918 SR=5R+1 

9888 IF CAL$="J" THEN CAL$="JULIAN CAL 
END AR" 

9818 IF CAL$="G" THEN CAL$=" GREGORIAN 

CALENDAR" 

9888 REM 

9818 GOSUB 400:? "»" : ? D$;". ";M$;" " ; 
DATE;", " ; I YE AR ; " " ; ERAS ; »• 
9815 ? C ALS . •• JD«" ; JDA Y 

9900 ? "Original Calendar Date: " ; ENSE 
A50N$;EM0;"-";EBM 
9910 ? :? "Uarious Eras:" 
9915 ? "Year »";EY;" of Julian Sothic 
; JSC 

Year «";TEY;" of True Sothic C 
TSC 

Year of Senworset III: ";SENWB 



Cycle « 
9916 ? 
ycle «" 
9920 ? 
R5ET3 
9925 ? 
OHEP1 
9930 ? 
ASSAR 
9950 ? 
9960 ? 

NTH$; 



'Year of Anentohep I: " ; AMENT 
'Year of Nabonassar: " ; NABON 



? : ? : ? t ? 
'Coptic Calendar: 
jCBM 

9962 IF CM=13 THEN 9965 
9965 ? "Alexandrian Year 



";CY;" " ; ENMO 



1 ; ALEXANDRIAN 
•; AUGUSTAN 



9970 ? "Augustan Year 
9990 ? :? "Sothic Rising this year' 
5RM0NTHS;" ";SR:GOSUB 410 
9999 END 



TapeTime LabelMaker 



Article on page 18 



LISTING 1 



Don't type the 
TYPO II Codes! 



32 REM TAPE TIME LABELMAKER 

34 REM BY GARY COPPOLA 

36 REM CC31989, ANTIC PUBLISHING 

320 REM 

370 POSITION 12.12:? "HHB[«[!l" 

381 DIM TITLE1$C403,TITLE2$C403,TITLE3 
$ C403 , TITLE4S €403 , TITLE5S C403 . TITLE6$ c 
40J . TITLE 7$ C403 

382 DIM SPEED1$C43,SPEED2$C43,SPEED3$C 
4 3 , SPEED4S C4 3,SPEEDS$C4 3,SPEED6$C43.SP 
EED7S C43 

383 DIM MIN1SC33.MIN2SC33 ,MIN3«C33 ,MIN 
4$ €33 ,MIN5$C33 ,MIN6$C33 , MIN7$c3> 

385 LINE = 13:P0SITI0N 2.16:? "Do You 14a 
nt To: f|3Do Calculation" : POSITION 19. 
17:? "@3Make a Label" 

386 TRAP 1920 : POSITION 2.18:? "Your Ch 
oice"; : INPUT CH:GOSUB 1750 

387 IF CH<1 OR CH>2 THEN 381 

388 IF CH=1 THEN GOSUB 1750:GOSUB 1830 
:GOTO 390 

389 IF CH = 2 THEN POSITION 12.12»? "HHftJ 
NM": GOSUB 1710:GOSUB 1750 ■ GOTO 2170 
1430 IF X=l THEN GOSUB 1710:GOSUB 1750 
:GOTO 380 

1750 FOR CS=16 TO 18:P0SITI0N 0.C5:? " 

" : NEXT CS : RETURN 
1960 IF ERR0R=8 THEN ON LINE GOTO 390. 
480. 510. 610. 2060. 2060. 880. 910. 1010. 108 
0. 1380. 14 70. 381. 2170. 2850 

2170 LINE=14 : POSITION 2,16:? "Tape For 
Mat: M> BETA EI>UH5" 

2188 TRAP 1920 : POSITION 2,17:? "Your C 



HW 
FT 

WF 



PF 

KI 
YE 



YM 

QE 

RB 
LI 
BF 



SQ 
WE 



SJ 



FB 
BH 
EP 
GN 



hoice"; : INPUT MODE:GOSUB 1750 

2190 IF M0DE<1 OR M0DE>2 THEN 2170 

2200 IF M0DE=1 THEN POSITION 12.12*? " 

[flUfftsU" : GOSUB 1750: GOSUB 3000 

2210 IF M0DE=2 THEN POSITION 12.12s? " 

■OIKUM" : GOSUB 1750: GOSUB 3000: GOTO 2310 

2220 REM BETA 

2260 GOSUB 3015:GOSUB 3020 

2270 FOR WAIT=1 TO 500:NEXT WAIT : GUSUB 

1750 : POSITION 2.16:? "You can enter a 

Max i nun of 6 titles" 
2280 ? " Press G1H1Q mm to continue" 

2290 CLOSE tt2:0PEN »2 ,4.0. "K : " : GET »2 . 
K:CLOSE **2:G0T0 2400 
2300 REM UHS 

2310 GOSUB 3025:GOSUB 3030 

2330 FOR MAIT=1 TO 500:NEXT WAIT i GUSUB 
1750 : POSITION 2.16:? "You can enter a 
Max i mum of 7 titles" 

2340 GOTO 2280 

2400 GOSUB 1750 : POSITION 2.17:? "Enter 
Your FIRST Title":FOR UAIT=1 TO 90:NE 
XT UAIT 

2410 TRAP 2400:GOSUB 3080 : POSITION 1.1 
8 : INPUT TITLE1$:IF TITLE1$="" THEN GOT 
0 2790 

2420 TNUM=l:GOSUB 1750:GOSUB 3120 
2440 INPUT SPEED1S 
2460 GOSUB 3150:INPUT MINIS 
2470 GOSUB 1750 : POSITION 2.17:? "Enter 
Your SECOND Titie":FOR WAIT=1 TO 90:N 
EXT WAIT 
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BC 



GH 
BO 
FC 
UR 



CZ 



GF 
CU 
GR 
GU 



KM 



HF 
CY 
HE 
GC 



MJ 



HD 

EE 

n 

J5 



TU 



ID 
EI 
JG 
CU 



UL 



ND 

AQ 

EE 
JU 

ZD 



EB 
KM 
TP 
MD 
UF 
NP 
RX 
TU 
TL 



JU 
UF 
QA 
FO 



HK 
MM 



DK 
IA 



10 



HP 



2480 TRAP 2478:G0SUB 3086 s POSITION 1,1 
8:INPUT TITLE2$:IF TITLE2$="" THEN GOT 
0 2790 

2490 TNUM=2:G0SUB 1750 : G05UB 3120 
2500 INPUT 5PEED2S 
2510 GOSUB 3150:INPUT MIN2S 
2520 GOSUB 1750 : POSITION 2.17:? "Enter 
Your THIRD Titie":FOR UAIT=1 TO 90:NE 
XT UAIT 

2530 TRAP 2520:GOSUB 3080 : POSITION 1,1 
8:INPUT TITLE3$:IF TITLE3$="" THEN GOT 
0 2790 

2540 TNUM=3'G0SUB 1750:GOSUB 3120 
2550 INPUT 5PEED3* 
2560 GOSUB 3150:INPUT MIN3S 
2570 GOSUB 1750 : POSIT ION 2.17:? "Enter 
Your FOURTH Titie":FOR UAIT=1 TO 90:N 
EXT UAIT 

2580 TRAP 2570:GOSUB 3080: POSITION 1.1 
8:INPUT TITLE4$:IF TITLE4S="" THEN GOT 
0 2790 

2590 TNUM=4:G0SUB 1750:GOSUB 3120 
2600 INPUT 5PEED4S 
2610 GOSUB 3150:INPUT MIN4S 
2620 GOSUB 1750 : POSITION 2,17:? "Enter 
Your FIFTH Titie":FOR UAIT=1 TO 90:NE 
XT UAIT 

2630 TRAP 2620:GOSUB 3080 : POSITION 1,1 
8:INPUT TITLE5S:IF TITLE5$="" THEN GOT 
0 2790 

2640 TNUM=5:G0SUB 1750:GOSUB 3120 
2650 INPUT SPEEDS* 
2660 GOSUB 3150:INPUT MIN5$ 
2670 GOSUB 1750 : POSITION 2,17:? "Enter 
Your SIXTH Titie":FOR UAIT=1 TO 90:NE 
XT UAIT 

2680 TRAP 2670:GOSUB 3080 : POSITION 1,1 
8:INPUT TITLE6$:IF TITLE6$="" THEN GOT 
0 2790 

2690 TNUM=6:G0SUB 1750 : GOSUB 3120 

2700 INPUT SPEED6$ 

2710 GOSUB 3150:INPUT MIN6S 

2720 IF M0DE=2 THEN GOSUB 1750:POSITIO 

N 2,17:? "Enter Your SEUENTH Titie":FO 

R UAIT=1 TO 90:NEXT UAIT 

2730 IF M0DE=2 THEN TRAP 2720:GOSUB 30 
80:PO5ITION 1,18:INPUT TITLE7$:IF TITL 
E7$ = "" THEN GOTO 2790 

2740 IF M0DE=2 THEN TNUM=7 : GOSUB 1750: 
GOSUB 3120:INPUT SPEED7S 

2750 IF M0DE=2 THEN GOSUB 3150:INPUT M 
IN7S 

2790 GOSUB 1750 

2795 POSITION 2,16:? "Position LABEL i 
n the pr i nter , then" 

2800 POSITION 10,17:? "BOmiafflBffltflBHtaOfflflE 
MB": FOR J = 15 TO 0 STEP -KSOUND 0,120, 
10,J:NEXT J 

2810 FOR UAIT=1 TO 300:NEXT UAIT 

2830 IF M0DE=1 AND TNUM<=3 THEN L5=12 

2835 IF M0DE=1 AND TNUM>3 THEN LS=6 

2840 IF M0DE=2 AND TN0M<=4 THEN LS=12 

2845 IF M0DE=2 AND TNUM>4 THEN LS=6 

2850 LINE=15 : GOSUB 1750 

2854 IF M0DE=1 THEN GOSUB 3050 

2856 IF M0DE=2 THEN GOSUB 3060 

2860 TRAP 1920: POSITION 9,16:? "BBIHBU 

[JiraBtiraiaOBlEmmmQfOT" » ? "Refer to list for 

suggested setting" 

2870 ? "mi\\imm\="; : INPUT MAR 

2880 IF MAR < 1 OR MAR>40 THEN 2850 

2890 GOTO 3200 

3000 POSITION 4,16:? "Refer to list fo 
r the suggested":? naxinuH nunber o 

f characters" 

3010 ? " cfNfiiMHO allowable for your ti 
tie": RETURN 

3015 POKE 82,20:POSITION 20.2:? ••■mflHRl 



■wn ii j in* 1 



: ? 



: ? : ? 



■fiimW|a|liri":POKE 



PI":? ' 

"■eHHiorani" 

3017 ? :? •-■rdUJRJM- 
82.2<RETURN 
3020 POKE 82. 32 : POSITION 31,2:? "[HfflElH" 
: ? : ? "Hfl" : ? : ? "BE" : ? : ? "BM" '7 : ? "W 
[sl":POKE 82,2:RETURN 

3025 POKE 82, 20: POSITION 20.2:? "BCiramm 
El" : ? "■BOBBOQBQBBBBBO" i ? "BWIHIUIulWIII" l ? " 
■HHmnHfflHHft" : ? "BlilMHrailMBWH" 

3027 ? "■sirnaranmarsirsH" : ? ••mmmw : ? "Bfii?Bii 
marao- : ? "■larafflmaniritQ" ■ ? '•■H0i5iRiaiiii5iMW" - pok 

E 82.2:RETURN 



MF 



XS 
RD 



DY 

EG 

SU 

RB 

GP 

DX 

LY 
NS 
AP 
OU 

NG 

FZ 

TU 

GP 
JU 
CU 

FC 

CB 

LM 

XR 
YB 

BQ 

ED 

PK 

US 

AA 

GU 

ZM 



3030 POKE 82. 32 : POSITION 31.2:? "filBISlQ" 
: ? : ? "B@" : ? "HH" : ? M HDfl M i ? "WH" : ? "WH" 
:? "HO" 

3040 ? "BH":? "g[s]" : POKE 82. 2: RETURN 
3050 POKE 82. 31 : POSITION 29,2:? "fimiUmM 
HI" : ? : ? "ami" : ? : ? "HHB" : ? : ? "BUB" I ? 
:? "■[•IB" : POKE 82. 2: RETURN 
3060 POKE 82. 32 : POSITION 30.2 
: ? "BSB" : ? "HHB" 



? "nBum 

? "flEJB": 



■nrai 



POKE 82.2 



• BtaaBBBBBaaBBBBaB 



5 10 
RETURN 
•Enter Speed 



15 
CBII 



•Enter Speed cSP. 



GU" : ? : ? 
? "flElB" 
3070 ? 
: RETURN 

3080 POSITION 2.17:? 
BBBBBSBBHBBBBBBBBStiJ M 
3090 POSITION 2.16:? 

20 25 30 35 
3100 POSITION 2.16:? 

or BIIIJ :"; : RETURN 
3110 POSITION 2.16:? 
LP or EPJ : "; : RETURN 
3120 IF M0DE=1 THEN GOSUB 3100 
3130 IF M0DE=2 THEN GOSUB 3110 
3140 RETURN 

3150 POSITION 2.17:? "Prosran Length c 
in ninutesi ";: RETURN 

3199 REM PRINTER CONTROL CODES 

3200 LPRINT CHR$ C27> ; CHR$ c64) : REM INIT 
IALIZE PRINTER 

3210 LPRINT CHRS C271 ; CHR$ €1103 : REM NLQ 
PICA 

3220 LPRINT CHRS c27> ; CHRS C65) ; CHRS cLS> 
: REM LS'72 LINE SPACING 

3230 LPRINT CHR$c27) ;CHR$c77> ;CHR$cMAR 
y : REM LEFT MARGIN 

3240 IF M0DE=1 AND TNUM>3 THEN LPRINT 
CHRS c27* ; CHRS c83> ; CHR$ cu : REM SUB SCRIP 
T FONT 

3245 IF M0DE=2 AND TN0M>4 THEN LPRINT 
CHRS C27V; CHRS c83> ; CHRS cu : REM SUBSCRIP 

T FONT 

3250 GOSUB 1750 : POSITION 6.17:? 

K1K1E1 [3HQ to print LABEL" 
3260 CLOSE «2:0PEN «2 . 4 . 0 . "K i " « GET **2 , 
K:CLOSE »2 

3270 REM PRINT LABEL 
3280 LPRINT TITLE1S; 
IN1$;" 

3290 LPRINT TITLE2S; 
IN2$." " 

3300 LPRINT TITLE3S; 
IN3S." •• 

3310 IF TNUM>3 THEN LPRINT TITLE4S; 
";SPEED4$;" ";MIN4$;» " 
3320 IF TNUM>3 THEN LPRINT TITLES*; 
";SPEED5$;" ";MIN5$;" " 
3330 IF TNUM>3 THEN LPRINT TITLE6S; 
";SPEED6$;" ";MIN6$;" " 

3340 IF TNUM>3 AND M0DE=2 THEN LPRINT 
TITLE7S;" ";5PEED7$;" ";MIN7$;" " 
3350 GOSUB 1710:GOSUB 1750:GOTO 380 



•Press 



•;SPEED1S;« 
•jSPEED2$;' 
• ; 5PEED35 ; 1 



LISTING 2 



YY 
E5 
QH 
LH 
AR 
RH 
BA 

UN 

GZ 

F J 

MT 

EF 

RS 

GU 

UX 

CT 

MI 



10 REM UCR TAPE TIME 

20 REM BY PAUL SHANNON 

30 REM ccH988. ANTIC PUBLISHING 

32 REM TAPE TIME LABELMAKER 

34 REM BY GARY COPPOLA 

36 REM cc>1989, ANTIC PUBLISHING 

40 GRAPHICS 0:POKE 752,1:P0KE 710,0:DI 

M ERRS c6> , HOLDS C6* 

50 ? " BBBBBBBBBBBBBC1 «BBBRBHBHBBHBBBS 



HHHfci " 
60 ? ■' 
HHSJni •' 
70 ? •' 
BBUi[H " 
80 ? • 
■■11 ' 
90 ? • 
■■II ' 
100 ? 
BBBtliU 
110 ? 
ABB 1 1 HI) 
120 ? 

BBBirai 

130 ? 
■■■II 

140 ? 



IlinNHrvBB'rHt-T ■■!! [llfflBBBBBBBBBBBBBB 



UWfaitdeiBBffliiiliftflBfln [MM 



I1B I U APEBI J IMEII III 



OBBffll 



IBIW1 



io aimi 



flBBBHBBLiJftMl 



in mm 



riBmounnnnBrnaBii mm 

ui-jKiwifflBBKiraifflraiiiin ami 
iinBOHmraBQiBEanBii mm 



lill II 



30 



ANTIC SOFTWARE LIBRARY 



•Ill 



■■■III " 

150 ? "li!RBBBBBBBBBBBBBB0llj!l 
■■■II " 

166 ? ••f|ili!iflWfI«M»!pHHHHHS"l[l!LIII 
■■■II 

178 ? 

RBHWIJI 

18 6 ? "LI! ..».. [SBBBBBffilll ***** 

nn til 

196 ? 

aaaae 

268 ? 

210 POSITION 2,19:? 



UtllfflBBBBSBBBBBRBB 



MBHMPiiMBBiiwHiiiHB 



226 POSITION 2, 



(I 



236 POSITION 2, 
248 POSITION 2u 



a 

UBBBBBBBBBGBBBBB 



TO 



5:P0SITI0N 12,12:? 
TO 186:NEXT WAIT 



•HWB 



FOR MAIT = 



•aHBfflBi" 

HOLDS C6J 



28 : ? 

a - 

21 : ? 

a - 

22 : ? 

BBBBQBBSBQBSGBBDBa *' 

256 FOR J=l TO 16:F0R L=2 TO 11 

266 POSITION 28,L:? "BBBBBBBBaBBBBBBB 11 

: POSITION 20, L:? "■■■■■■■■■■■■■■■■" 

280 NEXT L 
300 NEXT J 
320 REM 
330 FOR Z=l 
mm- :FOR UAIT=1 
340 POSITION 12,12:? 
1 TO 100:NEXT UAIT 
360 NEXT Z 

370 POSITION 12,12:? 

380 CLR :DIM ERRS c6> , 

381 DIM TITLE1$C48>,TITLE2$C48»,TITLE3 
S C46> , TITLE4S c46> , TITLE5S c48> , TITLE6S c 
40> , TITLE7S c48* 

382 DIM 5PEED1SC4* ,5PEED2SC4i ,SPEED3Sc 
4>,5PEED4$c4J, 5PEED5S C4*,SPEED6SC4),5P 
EED7S C4J 

383 DIM MINl$c3i,MIN2$c3J ,MIN3$c3J ,MIN 
4SC3) , MIN5SC3* , MIN6$c3i , MIN7SC3* 

385 LINE=13 : POSITION 2,16:? "Do You Ua 
nt To: Q)Do Calculation' 1 : POSITION 19, 
17:? "W)Make a Label" 

386 TRAP 1928 : POSITION 2,18:? "Your Ch 
oice";:INPUT CH:GOSUB 1756 

387 IF CH<1 OR CH>2 THEN 381 

388 IF CH=1 THEN G050B 1756:G0SUB 1836 
:GOTO 396 

389 IF CH = 2 THEN POSITION 12,12:? "HK3M 
[?<[i":GOSUB 1718:G0SUB 1758:G0T0 2176 
396 POSITION 2,16:? "Do You Want: fj> BE 
TA B>UH5" 

466 LINE=1 : TRAP 1926 

416 POSITION 27,16:INPUT A:GOSUB 1756: 
GOSUB 1838 

426 IF A<1 OR A>2 THEN 398 
438 IF A=l THEN POSITION 12,12:? 



■mam 



446 IF A = 2 THEN POSITION 12,12:? "■llirilW 
B" 

458 IF A = l THEN GOSUB 1836 

466 IF A=2 THEN 888 

476 REM BETA 

488 LINE=2 : TRAP 1926 

498 POSITION 2,16:? "Is Your BETA Tare 

: MJL-756 W> L - 838" : POSITION 36,16:INPU 
7 TAPETYPE : GOSUB 1756 

560 IF TAPETYPE<1 OR TAPETYPE>2 THEN 4 
88 

516 POSITION 2,16:? "Enter The Minutes 

BETA II" 
520 LINE = 3 : TRAP 1920 

530 POSITION 27,16:INPUT MINBII : GOSUB 
1750 

540 IF MINBII=0 THEN GOSUB 1710:GOTO 5 

80 

550 IF MINBII>900 THEN GOSUB 2080:GOTO 
510 

560 T0TMINBII=T0TM1NBII+MINBII 
570 GOTO 510 

580 IF TAPETYPE=1 THEN POSITION 23^2^? 

"\imxmwBmm" position 22, 3:? 



590 IF T APET YPE=2 THEN POSITION 23^2^? 

"[mmmmimm" position 22,3:? 



600 POSITION 22,5:? "firanHnBKllimfflDSS" : PO 
SIT ION 21,6:? 1 * [HUMKHfinm "; TOTMINBII 



NG 
PL 

RT 

CA 
NO 

UK 
OR 
UQ 

YG 
JZ 
SD 

KC 

DE 
EK 
DS 
ON 

5U 
1Y 

DX 

CG 
ML 

ZL 

PD 

DR 

OY 
PS 
PA 
KM 

YA 

QI 

OZ 
UI 

HK 

XT 

FD 
PP 
RU 



ZU 



OZ 

KU 
UL 

LP 

HP 
FT 

NN 

06 
PE 

BR 
AH 

GI 

CF 
NO 

xc 

RM 

KC 



CN 
AL4 



610 LINE=4 : TRAP 1920 

620 POSITION 2,16:? "Enter The Minutes 
BETA III" 

630 POSITION 28,16:1NPUT MINBII I : GO SUB 

1750 

640 IF MINBIII=0 THEN 670 

645 IF MINBIII>900 THEN GOSUB 2080:GOT 
0 620 

650 T0TMINBI11=T0TM1NBIII+MINBIII 
660 GOTO 620 

670 POSITION 22,8:? "HranranBliiHfflmGHH" : PO 
SIT ION 21,9:? "m^UMBUIIIJBB" ; TOTMINBII1 
680 FOR PAUSE=1 TO 200:NEXT PAUSE 
690 DIM TAPEScil* 

700 IF T APET YPE = 1 THEN TBII = 180 : TBIII = 

270:MET = 222:TAPE$ = "BfflHflHBtlBHHffl" 

710 IF T APET YPE=2 THEN T BII=200 : TBIII= 

300:MET = 246:TAPES = "BfflHIlfflBtlBfflBra" 

74 0 BI IMET ER= c T 0 T MINBI I / TB 1 1 » *MET 

750 B1IIMETER= cTOTMINBIII^TBIIU *MET 

760 TOTAL ME TER=BIIMETER+BIIIMETER 

770 TIMELEFTBII= c cMET - TOT ALMETER* 'MET* 

*TBII:G05UB 1710 

780 RO = INT C108*TIMELEFTBII+8.5)'168 
796 POSITION 22,2:? TAPES : POSITION 21, 



5 : ? RO ; "BliiniiimnHE" ¥ G0 5U 



3 : ? 

880 POSITION 21, 
B 1790 

810 POSITION 21,6:? "m^iir-ifliiiiBrisno" 

820 TIMELEFTBIII= c cMET - TOT A L METER* 'MET 
**TBIII 

830 ROIII = INT C188*TIMELEFTBII1+8.5»'18 
6 

846 POSITION 21,8:? R 0 1 1 1 ; "BfiEHGlCfinSH" : G 
05UB 1796 

856 POSITION 21,9:? "l?lWMf:lBMMMBI!Hnn" : GO 

SUB 1756 

868 GOTO 1388 

876 REM UHS 

886 LINE=7 : TRAP 1926 

896 POSITION 2,16:? "Is Your UHS Tape: 
OJT-128 HJT-166" : POSITION 35,16:INPUT 
UH5TYPE : GOSUB 1758 

966 IF UHSTYPE<1 OR UHSTYPE>2 THEN 880 

910 POSITION 2,16:? "Enter The Minutes 
SP" 

920 LINE=8 : TRAP 1920 

930 POSITION 22,16:INPUT MINSP-'GOSUB 1 

750 

940 IF MINSP=0 THEN GOSUB 1718:G0T0 98 
0 

950 IF MINSP>900 THEN GOSUB 2680:GOTO 
910 

960 T0TMINSP=T0TMIN5P+MIN5P 

978 GOTO 916 

986 IF UHSTYPE=1 THEN POSITION 23,2:? 
"WJlilHBHHHWra" POSITION 21,3:? 



996 IF UH5TYPE=2 THEN POSITION 23,2:? 
"LUlilHBMBHMH" .'POSITION 21,3:? "BBBBBBBBB 

1686 POSITION 21,4:? "limOEnBfilHmmOER" : P 
OSITION 21,5:? "HIWttraiUBPlflfl" ; T0TMIN5P 

1816 LINE=9 : TRAP 1926 

1626 POSITION 2,16:? "Enter The Minute 
s LP" 

1636 POSITION 22,16:INPUT MINLP » GOSUB 
1756 

1648 IF MINLP=8 THEN 1676 

1645 IF MINLP>966 THEN GOSUB 2688:G0T0 
1828 

1656 TOTMINLP=TOTMINLP+ MINLP 
1668 GOTO 1626 

1678 POSITION 21,7:? "HmnmnBfilHmmHSS" : P 
OSITION 21,8:? "fflrslBHHEEfflBB" ; TOT MINLP 
1886 LINE=10:TRAP 1920 

1090 POSITION 2,16:? "Enter The Minute 
s EPCELPJ" 

1100 POSITION 27,16:INPUT MINEP : GOSUB 
1750 

1110 IF MINEP=0 THEN 1140 

1115 IF MINEP>900 THEN GOSUB 2080:GOTO 

1696 

1128 TOTMINEP=TOTMINEP+MINEP 
1138 GOTO 1898 

1146 POSITION 21,16:? "HranmnBlEHfflmnHH" : 
POSITION 21,11:? • • f^UBHHHBfnBB ' * ; TOT MINEP 

1158 FOR PAUSE=1 TO 268:NEXT PAUSE 
1168 DIM UHSTAPESC11J 
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1170 IF UH5TYPE=1 THEN T5P=128 : TLP=248 
: TEP=368 : MET = 246 : UHST APES = '«BmmBBflOOH[5]" 

1190 IF UH5TYPE=2 THEN T5P=160 : TLP=320 
: TEP = 480 : MET=327 « UHST APES = "BPjmBBilBOrar5]" 

1210 SPMETER= cTQTMINSP' TSP* *MET 

1220 LPMETER= cTOTMINLP'TLP>*MET 

1230 EPMETER= cTOTMINEP'TEP>*MET 

124 0 TOT ALMETER5=5PMETER+LPMETER+EPMET 

ER 

1250 TIMELEFT5P= c cMET - TOT ALMETERS* 'MET 
>*TSP:GOSUB 1710 

12 60 R05P = INT ci88*TIMELEFTSP+8 . 51/100 

1270 POSITION 22,2:? UH STAPES s POSITION 

1280 POSITION 21,4:? ROSP ; "BKlHGimnSS" 
1290 POSITION 21,5:? "HHBHraHSEBBHIlH" 
1300 TIMELEFTLP= c cMET - TOT ALMETERS* 'MET 
:>*TLP 

1310 RQLP=INT ci88*TIMELEFTLP+8 . 5> '188 
1320 POSITION 21,7:? ROL P ; "BGDHUlfflOHH" 
1330 POSITION 21,8:? "HHBHHHrafflBflSHG" 
1348 TIMELEFTEP= c cMET - TOT ALMET ERS* /MET 
>*TEP 

1358 ROEP = INT ci88*TIMELEFTEP+8 . 5» '188 
1368 POSITION 21,18:? ROEP ; "BIHtimmnHS" : 
GOSUB 1818 

1378 POSITION 21,11:? ••@raBHHEmmBIIHHH" : 
GOSUB 1758 

1388 LINE=ll:TRAP 1928 

1398 POSITION 2,16:? "Want To Q>CONTIN 
UE B» PRINT" 

1488 POSITION 28,16:INPUT X 

1418 IF X<1 OR X>2 THEN GOSUB 1758:G0T 

0 1388 

1438 IF X = l THEN GOSUB 1718 : GOSUB 1750 

:GOTO 388 

1468 GOSUB 2868 

1478 LINE=12:TRAP 1928 

1488 REM PRINT 

1498 POSITION 2,17:? "Input Tape NuMbe 



T-l 
T-l 



1588 INPUT I 
1518 LPRINT ";I 
1528 IF A = l THEN 1618 

1538 IF UHSTYPE=1 THEN LPRINT "UH5 
28" 

1548 IF UH5TYPE=2 THEN LPRINT "UH5 
68" 

1558 LPRINT " " 

1568 IF X<>2 THEN 1598 

1578 LPRINT ROSP;" Minutes SP Speed R 
enainins" : LPRINT ROLP;" Minutes LP Sp 
eed Renainins" 

1588 LPRINT ROEP;" Minutes EP Speed R 

ena ini ne" 

1598 GOSUB 2868 

1688 LPRINT : GOTO 1668 

1618 IF T APET YPE=1 THEN LPRINT "BETA L 
-758" 

1628 IF T APET YPE=2 THEN LPRINT "BETA L 

-838" 

1638 LPRINT " " 

1648 LPRINT RO;" Minutes BETA II Rena 
i n ins" 

1658 LPRINT ROIII;" Minutes BETA III 

Renainins" : GOSUB 2868 

1668 LPRINT :GOSUB 1838 

1678 GOSUB 1758 

1688 GOTO 388 

1698 END 

1788 REM CLEAR SCREEN 
1718 FOR C=2 TO 11 

1728 POSITION 28,C:? ' ' BBBBBBBBBBBBBBBB 

1738 NEXT C 
1748 RETURN 

1758 FOR C5=16 TO 18:P0SITI0N 8,CS:? " 

" : NEXT CS : RETURN 

1788 RETURN 

1798 T0TMINBII=8 : T0TMINBI11=8 

1888 RETURN 

1818 T0TMIN5P=8 i T0TMINLP=8 : T0TMINEP=8 

1828 RETURN 

1838 POSITION 20,2:? "■■■BBBBBBBBBBBB" 



1848 POSITION 28,3:? 



POSITION 28,4:? 
1858 POSITION 20, 

UJCll 



■uriHrnHBi^iimwui 



■ BBkinoraraBi ^marrBBB 1 

5 : ? ''BBBBB^mnrfiHBI 



XQ 

1C 

NR 

JZ 

KU 

AR 
NS 
XT 
DP 
DZ 



DU 
OA 



LF 

AU 

BG 

CS 
NA 

HN 

PA 

PU 

QG 

DJ 

AU 

CC 

KT 

HU 

FT 

UF 



PF 
KI 
YE 



YM 

QE 

RB 
LI 
BF 



SQ 
UE 



SJ 



FB 
BH 
EP 
GN 



BC 



GH 
BO 
FC 
UR 



CZ 
GF 



BflSmDSflBQflfflfflSmBfl 

■1 amnflBi ^HrafflBHmHHfrm 



1868 POSITION 28,6:? • 

aini 

1878 POSITION 28,7:? ' 

'^POSITION 28,8:? • 

rjiili 

1875 POSITION 28,9:? ■ 

nun 

1888 POSITION 28,18:? 

1898 POSITION 28,11:? 



1988 RETURN 
1918 REM ERRUR TRAP 
1928 ERR0R=PEEKC195^ 
1938 GOSUB 1758 

1948 IF ERROR = 8 THEN POSITION 18,16:? 
*M=4[i!]iir^ai^l[fjriim(=j[:4@H[iMl[B»H sa : FOR UAIT = 1 TO 15 
8:NEXT UAIT 
1958 GOSUB 1758 

1968 IF ERR0R=8 THEN ON LINE GOTO 398, 
488, 518, 618, 2860, 2060, 888, 918, 1818, 108 
8, 1388, 14 78, 381, 2178,285 8 
2860 LPRINT " 



2870 RETURN 

2880 POKE 789,8:P0KE 718,12:P0KE 712,6 
6 

2890 ERR« = "l3[fl[S[!][iM":TRAP 48888 

2180 FOR X8=l TO 25 : P8=INT CI . 5+6* c cXB / 

6> -INT CX8'6JJ»: HOLDS=ERRS cP8, 6> 

2110 IF P0O1 THEN HOLDS C6 - P8 + 2* = ERRS c 

1, P0-1J 

2120 POSITION 12^1,12:? HOLDS el , 5> : NEX 
T X0 

2130 POKE 712,0:POKE 709,202:POKE 710, 

8 

2148 IF A = l THEN POSITION 12,12:? "fflHIl 
Ktt" 

2158 IF A = 2 THEN POSITION 12,12:? "■lUKI 
BB" 

2168 RETURN 

2178 LINE-14 : POSITION 2,16:? "Tape For 
Mat: BET A HiUHS" 

2188 TRAP 1928 : POSITION 2,17:? "Your C 

hoice"; : INPUT MODE : GOSUB 1758 

2198 IF M0DE<1 OR M0DE>2 THEN 2178 

2288 IF MODE=l THEN POSITION 12,12:? " 

mBUHB" : GOSUB 1758: GOSUB 3888 

2218 IF M0DE=2 THEN POSITION 12,12:? " 

BLOtflBB": GOSUB 1758:G0SUB 3888: GOTO 2318 

2228 REM BETA 

2268 GOSUB 3015:GOSUB 3828 

2278 FOR UAIT=1 TO 588:NEXT UAIT : GOSUB 

1758 : POSITION 2,16:? "You can enter a 

MaxiMUM of 6 titles" 
2288 ? " Press GlfflB to continue" 



•K: 1 



GET «2, 



32 



2298 CLOSE »2:0PEN «2 , 4 , 0 , 
K:CLOSE «2:GOTO 2488 
2388 REM UHS 

2318 GOSUB 3025:GOSUB 3838 
2338 FOR UAIT=1 TO 588:NEXT UAIT:GOSUB 

1758 : POSITION 2,16:? "You can enter a 

maximum of 7 titles" 
2348 GOTO 2288 

2488 GOSUB 1 7 58 : POSITION 2,17:? "Enter 
Your FIRST Titie":FOR UAIT=1 TO 98:NE 
XT UAIT 

2418 TRAP 2488:G0SUB 3088 : POSITION 1,1 
8:INPUT TITLE1$:IF TITLE1S="" THEN GOT 
0 2798 

2428 TNUM=l:GOSUB 1758:G0SUB 3128 
2448 INPUT SPEED1S 
2468 GOSUB 3158.-INPUT MINIS 
2478 GOSUB 1 758 : POSITION 2,17:? "Enter 
Your SECOND Title":FOR UAIT=1 TO 98:N 
EXT UAIT 

2488 TRAP 2478:G0SUB 3888 : POSITION 1,1 
8:INPUT TITLE2S:IF TITLE2S="» THEN GOT 
0 2798 

2498 TNUM=2:G0SUB 1758:G0SUB 3128 
2588 INPUT 5PEED2S 
2518 GOSUB 3158:INPUT MIN2S 
2528 GOSUB 1758 : POSITION 2,1?: 

Your THIRD Titie":FOR UAIT=1 TO 98:NE 
XT UAIT 

2538 TRAP 2520 : GOSUB 3888 : POSITION 1,1 
8:INPUT TITLE3S:IF TITLE3S="" THEN GOT 
0 2798 

2548 TNUM=3:G0SUB 1758:G0SUB 3128 

ANTIC SOFTWARE LIBRARY 



•Enter 



2556 INPUT SPEED3S 
2568 GOSUB 3150:INPUT MIN3S 
2570 GOSUB 1750 : POSITION 2,17:? "Enter 
Your FOURTH Titie":FOR UAIT=1 TO 90:N 
EXT WAIT 

2580 TRAP 2570:GOSUB 3080 ' POSITION 1,1 
8:INPUT TITLE4$:IF TITLE4$="" THEN GOT 
0 2790 

2590 TNUM=4:G0SUB 1750:GOSUB 3120 
2600 INPUT 5PEED4S 
2610 GOSUB 3150:INPUT MIN45 
2620 GOSUB 1750 : POSITION 2,17:? "Enter 
Your FIFTH Titie":FOR UAIT=1 TO 90:NE 
XT WAIT 

2630 TRAP 2620:GOSUB 3080 : POSITION 1,1 

8:INPUf TITLE5$:IF T1TLE5$="" THEN GOT 
0 2790 

2640 TNUt1 = 5 : GOSUB 1750:GOSUB 3120 
2650 INPUT 5PEED5S 
2660 GOSUB 3150.-INPUT MIN5S 
2670 GOSUB 1750: POSITION 2,17:? "Enter 
Your SIXTH Titie":FOR WAIT=1 TO 90:NE 
XT WAIT 

2680 TRAP 2670:GOSUB 3080 : POSITION 1,1 
8:INPUT TITLE6$:IF TITLE6$="" THEN GOT 
0 2790 

2690 TNUM=6:G0SUB 1750:GOSUB 3120 

2700 INPUT SPEED6S 

2710 GOSUB 3150:INPUT MIN6$ 

2720 IF M0DE=2 THEN GOSUB 1750:POSITIO 

N 2,17:? "Enter Your 5EUENTH Titie":FO 

R WAIT=1 TO 90:NEXT WAIT 

2730 IF M0DE=2 THEN TRAP 2720 : GOSUB 30 
80:POSITION 1,18:INPUT TITLE7$:IF TITL 
£?$ = •••• THEN GOTO 2790 

2740 IF M0DE=2 THEN TNUh=7 s GOSUB 1750: 
GOSUB 3120:1NPUT SPEED7* 

2750 IF M0DE=2 THEN GOSUB 3150:INPUT M 
1N7$ 

2790 GOSUB 1750 

2795 POSITION 2,16:? "Position LABEL i 
n the pr i nter , then" 

2800 POSITION 10,17:? •'■timi^Hl'li^WI^IUM^IfciN 
m«":FOR J=15 TO 0 STEP -l:SOUND 0,120, 
10,J:NEXT J 

2810 FOR MAIT=1 TO 300:NEXT WAIT 



2830 IF MODE=l 
2835 IF MODE=l 



AND 
AND 



TNUM<=3 THEN L5=12 
TNUM>3 THEN L5=6 



2840 IF MQDE=2 AND TNUI1<=4 THEN L5 = 12 

2845 IF I10DE = 2 AND TNUM>4 THEN LS = 6 

2850 LINE=15 : GOSUB 1750 

2854 IF MODE=l THEN GOSUB 3050 

2856 IF M0DE=2 THEN GOSUB 3060 

2860 TRAP 1920 : POSITION 9,16:? "■HftflBH 

[sirsianmanafiimmmaofn" * ? "Refer to nst for 

suggested setting" 

2870 ? "fitSmmi![U="; : INPUT MAR 

2880 IF MAR < 1 OR MAR>40 THEN 2850 

2890 GOTO 3200 

3000 POSITION 4,16:? "Refer to list fo 
r the suggested" : ? " naxinun nuNber o 
f characters" 

3610 ? " cWliiraEO allowable for your ti 
tie" : RETURN 

3015 POKE 82, 26 : POSITION 20,2:? "■({« 
PI" : ? "■BOQQBBBQBBQBQB" : ? "■HffllflH" : ? * ? 
••■HWriTflHEi" 



3017 ? :? "■HffllJH* 
82,2 : RETURN 



•■fildBHllfl" : POKE 



IA 
10 
HP 
HF 



XS 
RD 



DY 

EG 

SM 

RB 

GP 

DX 

LY 
NS 
AP 
OU 

NG 
FZ 

TU 

GP 
JU 
CM 

FC 

CB 

LM 

XR 
YB 

BQ 

ED 

PK 

US 

AA 

GU 

ZM 



? "liieimraM 

? "MEW s 



, 17 : 



? "I1HB" : POKE 82,2 



5 10 
: RETURN 
"Enter Speed 



15 
CBII 



•Enter Speed <SP, 



3020 POKE 82, 32 : POSITION 31,2:? "MfflEIH" 
: ? : ? "BI1" : ? : ? "BB" '? : ? "*JH" : ? : ? M H 
[5]": POKE 82,2: RETURN 

3025 POKE 82, 20: POSITION 20,2:? "MltVSm 
m <( : ? "BBBBBBBBBBBBBBB" : ? "■MWHIklMi;!" ' ? " 

mtmmumiM\m" - ? "mmmmmmim^ 

3027 ? -"BriiriiamnKISQ" : ? ■•■RHIIBH- : ? "■lilfllil 

[!]0[§a":? "■Hmfflsmmnra" : ? ••■HEiniiEifeinirfiiniH" - pok 

E 82,2:RETURN 

3030 POKE 82, 32 : POSITION 31,2:? •'BHir-IH" 
:? :? "BH":? "HH" : ? "MB" I ? "Wfl" : ? "S«SJ" 
:? "RH" 

3040 ? "H(!J":? "BE" ."POKE 82, 2: RETURN 
3050 POKE 82, 31 : POSITION 29,2:? "lilEWWH 
GH" : ? : ? "■(:»" : ? : ? "DEW" I ? : ? "BWB" I ? 
:? "■£)■" : POKE 82, 2: RETURN 
3060 POKE 82, 32 : POSITION 30,2 
HJ"8? :? "MM":? "■«■":? MM!" 

? "lima" 

30 70 ? "■£»":? 
: RETURN 

3080 POSITION 2 
HSfrritfBBHHfflHBBHffittBBH&l" 
3090 POSITION 2,16:? 

20 25 30 35 
3100 POSITION 2,16:? 

or Bill* : "; : RETURN 
3110 POSITION 2,16:? 
LP or EP> : "; : RETURN 
3120 IF MODE=l THEN GOSUB 3100 
3130 IF M0DE=2 THEN GOSUB 3110 
3140 RETURN 

3150 POSITION 2,17:? "Prosran Length c 
in Minutes)"; :RETURN 

3199 REM PRINTER CONTROL CODES 

3200 LPRINT CHRS c27> ; CHRS C64> : REM INIT 
IALIZE PRINTER 

3210 LPRINT CHR$ C27J ; CHRS C1101 : REM NLQ 
PICA 

3220 LPRINT CHRS C27* ; CHRS C65> ; CHRS cLS J 
: REM L5'72 LINE SPACING 

3230 LPRINT CHRS c27> ; CHRS c77* ; CHRS cMAR 
> : REM LEFT MARGIN 

3240 IF MODE=l AND TNUM>3 THEN LPRINT 
CHRS €2 7 J ; CHR$ c83» ; CHR$ ci> : REM SUBS CRIP 
T FONT 

3245 IF M0DE=2 AND TNUM>4 THEN LPRINT 
CHRS C27J ; CHRS c83>;CHR$ci>: REM SUBS CRIP 
T FONT 

3250 GOSUB 1750 POSITION 6,17:? "Press 

mm [3SE1 to print LABEL" 
3260 CLOSE «2:0PEN »2 , 4 , 0 , "K : " : GET «2 , 
K:CL0SE »2 

3270 REM PRINT LABEL 

3280 LPRINT TITLE1S;" ";SPEED1*;" ";M 
INI*;" " 

3290 LPRINT TITLE2S ; " ";SPEED2$;" ";M 
IN2$;" " 

3300 LPRINT TIT LE3$ ; " ";5PEED3$;" ";M 
IN3$;" " 

3310 IF TNUM>3 THEN LPRINT TITLE4S ; " 
";SPEED4S;" ";MIN4$;" " 

3320 IF TNUM>3 THEN LPRINT TITLES* ; " 
";5PEED5$;" ";MIN5*;" " 

3330 IF TNUM>3 THEN LPRINT TITLE6S;" 
";5PEED6$;" ";MIN6$;" " 

3340 IF TNUM>3 AND M0DE=2 THEN LPRINT 
TITLE7S;" ";SPEED7$;" ";MIN7$;" " 
3350 GOSUB 1710:GOSUB 1750:GOTO 380 



Red Squares 



Article on page 24 



LISTING 1 



XM 
LW 
PB 
KC 
MQ 
ZY 
LT 



Don't type the>^>^ 
TYPO II Codes! 

HQ 



10 REM RED SQUARES 
20 REM BY MARC ABRAM0I4ITZ 

30 REM CC31989, ANTIC PUBLISHING INC QJ 
40 REM CDO NOT RENUMBER THIS PROGRAM) AZ 
70 GOTO 120 

80 RETURN AN 
100 BRK=U5RcADRC"haHnMhhnsmHapaftBUH!il"> TA 
,1> BQ 



105 POKE 708,54:POKE 711,34:P0KE 709,1 
0 : RETURN 

120 DIM NAMESC10J :G0SUB 8000 

130 POKE 106,PEEKC740>-5:GRAPHIC5 17 : G 

OSUB 100 

135 CH5ET= CPEEKC106> +11*256 

14 0 JUNK=U5R CMOU, 57344, CHSET, 1024 J 

160 FOR 1=0 TO 7:P0KE CHSET+520+I , 255 : 



JULY 1989 



TH 

DB 
PI 

ME 
YP 
FK 



CU 



MK 

PR 
EQ 
OJ 
UY 
GP 

TL 

EY 



AX 

XP 
UD 
NK 

MU 

DG 
NL 

EU 

GN 

XE 

UT 

5F 

PJ 

TU 

JL 

BD 

AU 

UN 

DT 

GC 
CX 

nu 

EI 
UR 

GD 



UE 
JG 

RY 



ER 
LN 

34 



PUKE CH5ET+8+I.255:P0KE CH5ET+512+I . 8 ■ 
NEXT I 

178 Din XC15>:F0R 1 = 8 TO 15 : X (D =88 : NE 
XT I:XC7 3=3888:XC11J=4 888:XC6>=3888 
171 XC83=3888:XC11=4888 

175 X C18>=4888 » X c5>=3888 : X c9* =4888 : X c8 

) =3888 : X CD =4888 

188 GOTO 7888 

199 REM DRAU BOARD 

288 GRAPHICS 17 : G05UB 188 i 5C0RE=8 : LINE 
5=8:P0KE 756 . CHSET'256+2 ■ IF HEIGHT=8 T 
HEN 287 

281 FOR Y = 17 TO 18 - HEIGHT STEP -HFOR 

X = 3 TO 16 : R=INT c2*RND CU +1> : IF R = l THE 
N 286 

282 R = INTC4*RNDC1>+1:> :P05ITI0N X.Y:IF 
THEN ? U6;"f 

«6j 
**6; 
«6 i 



R = l 

283 IF R=2 THEN 

284 IF R=3 THEN ? 

285 IF R=4 THEN ? 

286 NEXT X:NEXT Y 

287 FOR Y=8 TO 18 : POSITION 8, 



•y 



ar 



? «6 ;'•[!! 



Y : ? »6; " 
NEXT Y 
18 : ? »6; 



POSITION 17, Y: 

288 FOR X=2 TO 17:P05ITI0N 
B M : NE X T X 

289 POSITION 2.18:? »6 ; "ffl" : POSITION 17 
.18:? »6 

218 X = 18:Y = 8: SHAPE = INT cRND +1 : POK 
E 77.8 
228 Y = Y + 1 

238 TR=STRIGC81 :KEY=PEEKC764J 

248 GOSUB X CPEEKC6323 > : IF KEY < 2 THEN G 

OSUB XCKEYJ 

255 IF CTR=8 OR KEY=5> AND Y>3 THEN GO 
SUB 2888 

268 POSITION X,Y:POKE 764,255 
278 IF SHAPE=1 THEN ? 
78 

288 IF SHAPE=2 THEN ? »6 ; " ! B" : POSITION 

X.Y-l:? »6; "El*" : GOTO 378 
298 IF SHAPE = 3 THEN ? «6 ; " ! BW" : POSITIO 
N X.Y-l:? »6; "IS" : GOTO 378 
388 IF SHAPE=4 THEN ? »6 ; • 
N X+2. Y-l:? »6; 



!HQBD ai : GOTO 3 



1 ! BIB* 
GOTO 378 



i POSITIO 



318 IF SHAPE=5 THEN ? »6 ; " ! B* 
X-l.Y-l:? »6 ."[BR": GOTO 378 



328 IF SHAPE=6 
X + l. Y-l : ? t»6 i 



POSITION 
i POSITION 



THEN ? st6;"!H" 
IBIS": GOTO 378 

322 IF SHAPE = 7 THEN ? «6 ;■•!•■: POSITION 
X-l.Y-l:? »6; "BIMS" : GOTO 378 

323 IF SHAPE=8 AND Y>2 THEN GOSUB 1388 
:GOTO 378 

324 IF 5HAPE = 9 AND Y>1 THEN ? *t6;"!fl": 
POSITION X+l. Y-l:? «6 ; "W" : POSITION X + l 
.Y-2:? »6;"l2":GOTO 378 

325 IF SHAPE=18 AND Y>1 THEN ? »6 ; " • " : 
POSITION X.Y-l:? »6 ; "fl" : POSITION X-l.Y 
-2:? «6; "[BO": GOTO 378 

326 IF SHAPE=11 AND Y>1 THEN ? »6 ; " ! " : 
POSITION X.Y-l:? »6 ; "B(B" : PQSI TION X+l. 
Y-2:? «6; "D" : GOTO 378 

327 IF 5HAPE=12 AND Y>1 THEN ? «6 ; " ! " : 
POSITION X-l.Y-l:? »6 ; "BIB" : POSITION X- 
l.Y-2:? »6;"«":G0T0 378 

328 IF 5HAPE = 13 AND Y>1 THEN ? «6 ; ! " : 
POSITION X.Y-l:? »6 ; "fl[B" z P05ITI ON X.Y- 
2:? »6; "B" i GOTO 378 

329 IF SHAPE = 14 THEN ? «6 ; ! : P05I T I ON 
X-2, Y-l:? «6 ; "BIBI3" : GOTO 378 

338 IF 5HAPE = 15 THEN ? «6 ;"!": POSITION 
X.Y-l:? »6;"BL»r3":GOTO 378 

331 IF SHAPE = 16 THEN ? «6 ; " ! BLU" : POSI TI 
ON X + l.Y-l:? US; "15" : GOTO 378 

332 IF SHAPE=17 AND Y>1 THEN ? «6 ; " ! " : 
POSITION X.Y-l:? **6 ; "B" : POSITION X.Y-2 
:? »6; "IMS" : GOTO 378 

333 IF SHAPE=18 AND Y>1 THEN ? «6 ; " ! B" 
POSITION X.Y-l:? »6 ;"*": POSITION X.Y- 

2:? »6; "13" : GOTO 378 

334 IF 5HAPE=19 AND Y>1 THEN ? »6 ; " ! " : 
POSITION X-l.Y-l:? «6 ; "BIB" : POSITION X. 
Y-2:? »6;"I3" 

378 FOR D=l TO SPEED : NEXT D 

588 Z1=32:Z2=32:Z3=32:Z4=32:L0CATE X.Y 

+ 1. Zl 

S18 IF 5HAPE=1 THEN LOCATE X+1.Y+1.Z2: 
LOCATE X+2. Y+1,Z3:L0CATE X+3 . Y+l . Z4 : GO 
TO 788 

528 IF SHAPE=2 THEN LOCATE X+l. Y+l. Z2 : 
GOTO 788 

538 IF 5HAPE=3 THEN LOCATE X+l, Y+l, Z2 : 



MD 

JI 

IE 

OR 

IZ 

IU 

HQ 

KP 

IZ 

CZ 

XU 

FJ 

LI 

JK 

HU 
DU 

PG 
UY 
UH 

SA 
TN 
QZ 
UC 

un 

DU 

GA 

BU 

UN 

ZT 

JY 
KC 
IB 
BSi 

BU 

IU 



OF 
EO 



MA 

KF 
RT 

un 

UD 



X+l, Y+l, Z2 i 



LOCATE X+2, Y+l, Z3 : GOTO 788 
548 IF SHAPE=4 THEN LOCATE X+l, Y+l, Z2 : 
LOCATE X+2, Y+1.Z3:G0T0 788 
558 IF SHAPE=5 THEN LOCATE 
LOCATE X-l. Y, Z3 : GOTO 788 

568 IF 5HAPE=6 THEN LOCATE X+l, Y+l, Z2 : 
LOCATE X+2, Y, Z3 : GOTO 788 

578 IF 5HAPE=7 THEN LOCATE X-1,Y,Z2:L0 
CATE X + l, Y, Z3 : GOTO 788 

598 IF SHAPE=9 THEN LOCATE X+l, Y+l. Z2 : 
GOTO 788 

688 IF 5HAPE=18 THEN LOCATE X-1,Y-1,Z2 
:GOTO 788 

618 IF 5HAPE=11 THEN LOCATE X+1,Y,Z2:G 
OTO 788 

628 IF SHAPE=12 THEN LOCATE X-1,Y,Z2:G 
OTO 788 

621 IF SHAPE=13 THEN LOCATE X+1,Y,Z2:G 
OTO 788 

622 IF SHAPE=14 THEN LOCATE 
OCATE X-2, Y, Z3 : GOTO 788 

623 IF SHAPE=15 THEN LOCATE X+l, 
OCATE X+2, Y,Z3:G0T0 788 

624 IF SHAPE=16 THEN LOCATE X+l, Y+l, Z2 
: LOCATE X+2 , Y+l , Z3 : GOTO 788 

625 IF SHAPE=17 THEN LOCATE X+l, 
:GOTO 788 

626 IF SHAPE=18 THEN LOCATE X+l, Y+l, Z2 
:GOTO 788 

627 IF 5HAPE=19 THEN LOCATE X-1,Y,Z2 
788 IF Zl<>32 OR Z2<>32 OR Z3<>32 OR Z 
4<>32 THEN POP : 5C0RE = SC0RE + 1 : GOSUB 58 
88:G0T0 287 

1888 POSITION X,Y:IF SHAPE=1 THEN ? «6 



X-1,Y,Z2:L 



, Y,Z2 :L 



. Y-l, Z2 



1818 IF SHAPE=2 THEN ? «6 i 
N X,Y-l:? »6;" " 
1828 IF SHAPE = 3 THEN ? »6 ; 
ON X, Y-l*? «6;" " 

? «6; 



POSITIO 
•:POSITI 



P05ITI 



1838 IF SHAPE=4 THEN 
ON X+2,Y-l:? «6;" " 

1848 IF SHAPE=5 THEN ? «6 ; POSITIO 

N X-l.Y-l:? «6;" " 

1858 IF SHAPE=6 THEN ? «6 ; POSITIO 

N X+l,Y-l:? »6;" " 

1868 IF SHAPE=7 THEN ? »6 ; " f ' POSITION 
X-l, Y-l:? «6;«» 

1861 IF SHAPE = 8 AND Y>2 THEN ? »6 ; 

POSITION X,Y-l:? «6 ; " "POSITION X,Y~2 
:? »6; POSITION X,Y~3:? »6 ; " " 

1862 IF 5HAPE=9 AND Y>1 THEN ? »6 ; " 



POSITION X+l,Y-l:? «6 i 
l,Y-2:? »6;" " 

1863 IF SHAPE=18 AND Y>1 THEN ? «6 ; " " 
POSITION X,Y-l:? «6 ; " i 
Y-2:? «6;" «• 

1864 IF SHAPE=11 AND Y>1 
•POSITION X,Y-l:? «6 ; " " 
,Y-2:? «6;" " 

1865 IF SHAPE=12 AND Y>1 THEN ? »6;' 
POSITION X-l, Y-l:? St 6 ; 
-l,Y-2:? «6;" " 

1866 IF 5HAPE=13 AND Y>1 THEN ? «6j 
'• POSITION X,Y-l:? »6 ; 
-2:? »6;' 

THEN 



^POSITION X+ 



POSITION X-l, 

THEN ? «6;" " 
^POSITION X + l 



POSITION X 



POSITION X,Y 



? «6; ' 
? i«6 
? »6;' 



: POSITIO 
:P05ITI0 
":P05IT 



1867 IF 5HAPE=14 
N X-2, Y-l:? »6;" 

1868 IF SHAPE=15 THEN 
N X,Y-l:? «6;" 

1869 IF SHAPE=16 THEN 
ION X + l, Y-l:? t*6;" " 
1878 IF 5HAPE=17 AND Y>1 
POSITION X,Y-l:? «6 ; " " 
2:? «6;" " 

1871 IF SHAPE=18 AND Y>1 THEN ? »6; 
" : POSITION X, Y-l : ? »6 
-2:? «6;" •■ 

1872 IF 5HAPE=19 AND Y>1 THEN ? «6 
POSITION X-l, Y-l:? «6 ; » 
,Y-2:? »6;" " 
1288 GOTO 228 
1388 ? «6;"!":P0SITI0N X 
POSITION X,Y-2:? «6;"R": 
:? «6;"B": RETURN 

2888 IF SHAPE=1 THEN SHAPE=8 i RETURN 
AND X<16 THEN RETURN 
AND X<16 THEN 5HAPE=9 : 



THEN ? »6;" ' 
POSITION X,Y- 



:POSITION X.Y 



:POSITION X 



.Y-l:? «6 
POSITION X.Y-3 



2885 IF SHAPE=2 
2818 IF SHAPE=3 



RET URN 

2811 IF SHAPE=4 AND X>3 THEN SHAPE=18: 
RETURN 

2812 IF SHAPE=5 AND X<16 THEN SHAPE=11 



ANTIC SOFTWARE LIBRARY 



X>3 THEN SHAPE=12: 
X<16 THEN 5HAPE=13 



RJ 
XS 
YK 
WU 
AZ 



: RETURN 

2013 IF 5HAPE=6 AND 
RETURN 

2814 IF 5HAPE=7 AND 
* RETURN 

2020 IF 5HAPE=8 AND X<14 THEN 5HAPE=1 : 
RETURN 

2030 IF 5HAPE=11 AND X>3 AND X<16 THEN 

SHAPE=5 : RETURN 
2040 IF 5HAPE=12 AND X<16 THEN 5HAPE=6 
: RETURN 

2050 IF SHAPE=9 AND X>4 THEN 5HAPE = 14 : 
RETURN 

2060 IF SHAPE=10 AND X<15 THEN 5HAPE=1 
5 : RETURN 

2070 IF 5HAPE=13 AND X<15 THEN 5HAPE=1 
6 : RETURN 

2080 IF 5HAPE=14 AND X<16 THEN 5HAPE=1 
7 'RETURN 

2090 IF SHAPE=15 AND X<16 THEN 5HAPE=1 
8 : RETURN 

2100 IF 5HAPE=16 AND X>3 THEN 5HAPE=19 
: RETURN 

2110 IF 5HAPE=17 AND X<15 THEN 5HAPE=3 
: RETURN 

2120 IF SHAPE=18 AND X<15 THEN 5HAPE=4 
: RETURN 

2130 IF 5HAPE=19 AND X>3 THEN 5HAPE=7 : 

RETURN 

2980 RETURN 

3000 Zl=32 : Z2=32 : Z3=32 

3010 IF 5HAPE = 1 THEN LOCATE X+4,Y,Z1:G 
OTO 3890 

3020 IF 5HAPE=2 THEN LOCATE X+2,Y,Z1:L 
OCATE X + 2, Y-l, Z2 : GOTO 3890 
3030 IF 5HAPE=3 THEN LOCATE X+3,Y,Zl:G 
OTO 3890 

3040 IF 5HAPE=4 THEN LOCATE X+3,Y-1,Z1 

: LOCATE X + 3 , Y , Z2 : GOTO 3890 

3050 IF SHAPE=5 THEN LOCATE X+2,Y,Z1:L 

OCATE X + l, Y-l, Z2 : GOTO 3890 

3060 IF 5HAPE=6 THEN LOCATE X+3, Y-l, Zl 

'• LOCATE X+2, Y, Z2 : GOTO 3890 

3065 IF 5HAPE=7 THEN LOCATE X+1,Y,Z1:L 
OCATE X + 2, Y-l , Z2 * GOTO 3890 

3066 IF SHAPE=8 THEN LOCATE X+1,Y,Z1:L 
OCATE X + l, Y-1,Z2:L0CATE X+l , Y -2 , Z3 : LOC 
ATE X+l, Y-3.Z4:G0T0 3890 

3067 IF 5HAPE=9 THEN LOCATE X+2,Y,Zl:L 
OCATE X + 2, Y1,Z2:L0CATE X + 2 , Y -2 , Z3 : GOT 
0 3890 

3068 IF 5HAPE=10 THEN LOCATE X+1,Y,ZH 
LOCATE X+l, Y-1,Z2:L0CATE X + l , Y-2 , Z3 : GO 
TO 3890 

3069 IF 5HAPE=11 THEN LOCATE X+l,Y,Zl: 
LOCATE X + 2, Y-l* Z2 : LOCATE X +2 , Y - 2 , Z3 x GO 
TO 3890 

3070 IF 5HAPE=12 THEN LOCATE X+l,Y,Zl: 
LOCATE X+l, Y-1,Z2:L0CATE X , Y~2 , Z3 : GOTO 

3890 

3071 IF 5HAPE=13 THEN LOCATE X+1,Y,Z1: 
LOCATE X + 2, Y-1,Z2:L0CATE X + l , Y-2 , Z3 : GO 
TO 3890 

3072 IF 5HAPE=14 THEN LOCATE X+l,Y,Zl: 
LOCATE X+l, Y-1,Z2:G0T0 3890 

3073 IF SHAPE=15 THEN LOCATE X+1,Y,Z1: 
LOCATE X+3, Y-l, Z2 : GOTO 3890 

3074 IF 5HAPE=16 THEN LOCATE X+3,Y,Zl: 
LOCATE X+2, Y-1,Z2:G0T0 3890 

3075 IF 5HAPE=17 THEN LOCATE X+1,Y,Z1: 
LOCATE X+l, Y-1,Z2:L0CATE X+2 , Y -2 , Z3 : GO 
TO 3890 

3076 IF 5HAPE=18 THEN LOCATE X+2,Y,Z1: 
LOCATE X+l, Y-1,Z2:L0CATE X+l, Y~2 , Z3 : GO 
TO 3890 

3077 IF SHAPE=19 THEN LOCATE X+1,Y,Z1: 
LOCATE X+l, Y-1,Z2:L0CATE X+l, Y-2, Z3 
3890 IF Zl=32 AND Z2=32 AND Z3 = 32 THEN 

X = X + 1 
3900 RETURN 

4000 Zl=32 : Z2=32 : Z3=32 : LOCATE X~1,Y,Z1 

4010 IF 5HAPE=1 THEN LOCATE X"1,Y,Z1*G 
OTO 4880 

4020 IF 5HAPE=2 THEN LOCATE X-l, Y-l, Z2 
:GOTO 4880 

4030 IF 5HAPE=3 THEN LOCATE X-1,Y-1,Z2 
:GOTO 4880 

4040 IF 5HAPE=4 THEN LOCATE X+l, Y-l, Z2 
:GOTO 4880 

4050 IF 5HAPE=5 THEN LOCATE X-2,Y1,Z2 
:GOTO 4880 



TF 
DA 
XU 

UQ 

RS 
5L 

TB 

QR 

HF 

FN 

UK 

TT 

UN 

1« 

XQ 

BT 
FF 
ID 
DL 
ZP 
GJ 
ZE 
CU 
RM 

DB 

ZL 



CR 

UZ 

ZD 
5P 

ML 
BE 
BG 
ID 

QX 
IE 



UU 

IX 

AX 
UO 

51 
OT 

PU 

EI 

UN 

CY 



RF 
HQ 
XH 

ZP 
LQ 

HK 

YG 
ZM 



4060 IF SHAPE=6 THEN LOCATE X,Y-1,Z2:G 
OTO 4880 

4065 IF 5HAPE=7 
:GOTO 4880 

4066 IF 5HAPE=8 THEN LOCATE 
: LOCATE X-l, Y-2, Z3 : LOCATE X 
OTO 4880 

4067 IF 5HAPE=9 
OCATE X, Y-2,Z3:G0T0 4880 

4068 IF 5HAPE=10 THEN LOCATE X 
2:L0CATE X - 2 , Y - 2 , Z3 : GOT 0 4880 

4069 IF 5HAPE=11 THEN LOCATE X-1,Y 



THEN LOCATE X-2,Y-1,Z2 



X-l, Y-l, Z2 
1,Y-3,Z4:G 



THEN LOCATE X,Y-1,Z2:L 



1, Y-l, Z 



2:L0CATE X,Y~ 

4070 IF SHAPE 
2:L0CATE X-2, 

4071 IF SHAPE 
2:L0CATE X-l, 

4072 IF SHAPE 
2:G0T0 4880 

4073 IF SHAPE 
2:G0T0 4880 

4074 IF SHAPE 
GOTO 4880 

4075 IF SHAPE 
2:L0CATE X-l, 

4076 IF SHAPE 
2:L0CATE X-l, 

4077 IF SHAPE 
2:L0CATE X-l, 
4880 IF Zl=32 

X = X - 1 
4890 RETURN 
5000 IF Y<=1 
5010 REM 
5020 FOR Y=17 
5030 X=3 
5040 LOCATE X 
5050 IF Zl=32 
5060 IF X<16 

5070 FOR S=2 
UND 0,5*10,0, 

5071 SOUND 0, 



2,Z3:G0T0 4880 

=12 THEN LOCATE X-2,Y 

Y-2,Z3:G0T0 4880 

=13 THEN LOCATE X-1,Y 

Y-2,Z3:G0T0 4880 

=14 THEN LOCATE X~3,Y 

=15 THEN LOCATE X-1,Y 



=16 THEN LOCATE X,Y1 

=17 THEN LOCATE X-1,Y 
Y-2,Z3:G0T0 4880 
=18 THEN LOCATE X-1,Y 
Y-2,Z3:G0T0 4880 
=19 THEN LOCATE X-2,Y 
Y-2, Z3 
AND Z2=32 AND Z3=32 



1, Z 

-1, Z 
-1,Z 
-1, Z 
-1,Z 
, Z2: 
-1,Z 
-1,Z 
-1,Z 
THEN 



THEN POP :GOTO 6000 

TO 0 STEP -1 

, Y,Z1 

THEN 5080 
THEN X=X+l:GOTO 5040 
TO 17:P0KE 712 , (5*8> +4 : SO 
C17-5>:NEXT 5 : POKE 712,0 
0, 0, 0 : POSITION 3,Y:? «6 ; " 



LINES cLEN(LINE$> 



••:LINE$CLENCLINE$> 
GOSUB 7170 

:LL=5:RL=7:X=3 



JULY 1989 



5072 FOR Y2=Y TO 1 STEP -l:ZF=0:FOR X= 
3 TO 16:L0CATE X,Y2-1,Z1:IF Zl=32 THEN 

ZF=ZF+1 

5073 IF ZF=14 THEN POP :POP :GOTO 5079 

5074 POSITION X,Y2:? «6 ; CHRS (ZD : POSIT 
ION X,Y2-l:? »6;" " 

5075 NEXT X:NEXT Y2 

5079 LINE5 = LINE5 + 1 : 5CORE=SCORE+10* C18 - 
Y> : SPEED = 5PEED -5 : GOTO 5030 

5080 NEXT Y 
5090 RETURN 

5959 IF Zl=32 THEN 5080 
6000 GRAPHICS 18:G0SUB 100:LINE*= 

■rnmraH" : x=4 « y=4 i gosub 7170 

6010 FOR D=l TO 500:NEXT D 
6020 LINE$="LINES : 
+ 13 = 5TR$ CLINESJ : Y = 5 : LINES CLEN (LINE$> +1 

-:GOSUB 7170 
6030 LINE$="5C0RE « 
+ 11 =STRS (SCOREJ :Y = 4 = 
6040 LINES="press start' 
: Y = 7 

6050 GOSUB 7200 

6090 POKE 709, PEEKC201 : IF PEEK C53279* < 
>6 AND 5TRIGC0>=1 THEN 6090 
6100 GOTO 7150 

7000 GRAPHICS 18:G0SUB 100:DIM LINES (2 
0) 

7010 LINE$ = '*RED SQUARES' 
7170 

7040 LINES="by ware abranowi tz" i X=0 : Y= 
6:LL=9:RL=10:GO5UB 7200 

7050 LiNts = -rarimRH»mnm(iH" 

7120 FOR L=l TO ll:FOR F=9 
l:POSITION 3+L,F+l:? «6 ; " ' 
25, 10, 8 : POSITION 3+L,F 
7130 ? «6;LINESCL,L> :NEXT 
7140 SOUND 0,0,0,0 

7150 POKE 711,PEEKC20> : IF PEEK C53279* < 
>6 AND STRIG€0) THEN 7150 
7155 GOSUB 9000:GOTO 200 

7170 FOR L=l TO LEN cLINESi : POSITION X+ 
L , Y s FOR F=15 TO 0 STEP -5 

7175 SOUND 0,F*C255'Y> ,10,F:NEXT F:? » 

6;LINES(L,Li s NE X T L 

7180 SOUND 0,0,0,0: RETURN 

7200 FOR 1=1 TO X+LL:POSITION I-1,Y:? 
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X=3 : Y=4 : GOSUB 



TO 8 STEP - 
":SOUND 0,F* 

F '• NEXT L 



«6;" ":SOUND 8 , 1*10 , 10 , 8 : POSITION I,Y: 
? *6; LINES cLL, LL* :NEXT I 

7210 FOR 1=18 TO X+RL STEP -l:P05ITI0M 
I+1,Y:? «6;" " : SOUND 0 , I * 1 0 , 1 0 , 8 : P 0 5 1 
TION I,Y:? »6; LINES CRL, RLJ :NEXT I 
7220 SOUND 0,0,0,0:LL=LL-1:RL=RL+1:IF 
LL<=0 THEN RETURN 
7230 GOTO 7200 

8000 REM * ML MOUE ROUTINE * 

8010 mou=adr c"hhnBhaBhamhanhnmhn(iW»tiran 

8020 RETURN 

9000 GRAPHICS 2:G0SUD 100 : SPEED=1 : HEI G 
HT=0:? :POKE 657,3:? "USE CONSOLE KEYS 

OR JOYSTICK TO" 
9005 POKE 657,13:? "SELECT OPTIONS":PO 
KE 710,0:POKE 755,0 

9010 POSITION 1,58? »6;"select - SPEED 



option - HEIGH 
start - BEGIN 
SPEED ci-50*: 



9020 POSITION 1,6:? »6 ; 
T" 

9025 POSITION 1,7:? «6 ; 
GAME" 

9030 POSITION 1,2:? »6 ; 
";SPEED;" " 

9040 POSITION 1,3:? «6 ; "HEIGHT C0-10*: 
"; HEIGHT ; " " 

9050 ST=PEEKC632J : CON=PEEK C53279) 

9051 IF PEEKc53279>=6 OR STRIGc0>=0 TH 
EN 9150 

9052 IF ST=15 AND C0N=7 AND 5TRIGc0>=l 
THEN 9050 

9054 FOR U=15 TO 0 STEP -1.5:S0UND 0,5 
0,18,U:NEXT U 

9060 IF ST=14 OR C0N=5 THEN SPEED=SPEE 
D + l 

9070 IF 5T=13 THEN 5PEED=SPEED - 1 

9080 IF ST = 7 OR C0N = 3 THEN HEIGHT -HL I (i 

HT + 1 

9090 IF ST=11 THEN HEIGHT=HEIGHT -1 
9100 IF SPEED>50 THEN SPEED=1 
9110 IF SPEED<1 THEN 5PEED=50 
9120 IF HEIGHT > 10 THEN HEIGHT = 0 
9130 IF HE 1 GH T < 0 THEN HEIGHT = 10 
9140 GOTO 9010 
9150 SPEED=50-SPEED: RETURN 



LISTING 2 



EU 

1J 
PR 

UG 

RD 

PY 

TH 
UB 

MY 
KB 
PU 

LU 

BQ 
YC 

DM 

BK 

MM 

CM 

UQ 

AR 
PU 
Al. 

FX 
EF 

TZ 

UT 

RE 



40 REM CLINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY • ) 
60 DIM FNS C20> , TEMPS c20> , ARS C93> : DPL=P 
EEKC10592> :POKE 10592,255 

70 FN$="D:LINES.L5T":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
80 ? "*|ijisk or ftassette?"; : POKE 764,25 
5 

90 IF NOT CPEEKC764>=18 OR PEEKc764>= 
58> THEN 90 

100 IF PEEKC764>=18 THEN FN$="C:" 

110 POKE 764,255:GRAPHICS 0:? " AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"BY CHARLES JACKSON" 

130 POKE 10592, DPL : TRAP 200 

140 ? :? :? "Creating ";FNS:? "...Plea 

se stand by." 

150 RESTORE : READ LN : LM = LN : DIM AS CLN) : 

C = l 

160 ARS = ,,,< : READ ARS 

170 FOR X = l TO LEN CARS) STEP 3:P0KE 75 

2,255 

180 LM=LM-1 : POSITION 10,10:? "CCountdo 
wn . . . T-"; INT cLM'10> ; "> 

190 AScC,C>=CHRScUALcARScX,X+2*>>:C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEKC195>=5 THEN ? :? :? "ETOO 



•CANNOT CREATE FIL 



MANY DATA LINES! 
E ! " : END 

210 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
220 IF FNS=»C:" THEN ? :? " Prepare ca 
ssette, press [RETURN]" 
230 OPEN ssi,8,0,FNS 

240 POKE 766,1:? s»i;AS;:POKE 766,0 

250 CLOSE ttl : GRAPHICS 0:? "■fflBlfflffl[irffl[§[Ql 

1000 DATA 105 

1010 DATA 0490480480320660820750610850 

83082040065068082040034104169000133077 

10410420100024 0007169112133 

1020 DATA 016141014210096034 041044 04 90 

4115505604 8 04 9048032077079086 06106506 8 

08204 0034104164133241104133 

1030 DATA 2401041332131041332121041332 

3 910413323816 000017724 014521223021220 8 

0022302132 3024 0208 00223 0241 

1040 DATA 1982382082341982390162300960 

34041155 



10 REM 
20 REM 
30 REM c C ) 



1985,1988 ANTIC PUBLISHING 



Flash! 
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AY 
AZ 
GD 
EU 

IJ 
PR 

EA 

RD 

PY 

TH 
UB 

MY 
KB 
PU 
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10 REM 
20 REM 

30 REM c C ) 1985,1988 ANTIC PUBLISHING 
40 REM CLINES 10-250 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
50 REM CHANGE LINE 70 AS NECESSARY.) 
60 DIM FNS C20J , TEMPS C20J , ARS C93» : DPL=P 
EEKC10592* : POKE 10592,255 

70 FNS="D:FLASH.EXE":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
80 ? "8raisk or raassette?"; : POKE 764,25 
5 

90 IF NOT CPEEKC7641 =18 OR PEEKC764>= 
58* THEN 90 

100 IF PEEKC764J=18 THEN FNS="C:" 

110 POKE 764,255:GRAPHICS 0:? " AN 

TIC'S GENERIC BASIC LOADER" 

120 ? ,"BY CHARLES JACKSON" 

130 POKE 10592, DPL : TRAP 200 

140 ? :? :? "Creating ";FNS:? "...piea 



LU 

BO 
YC 

DM 

BK 

MM 

CM 

UQ 

AR 
PU 
AL 



READ LN : LM=LN : DIM AS CLN> : 



se stand by. 
150 RESTORE 

C = l 

160 ARS = — : READ ARS 

170 FOR X=l TO LENCARS) STEP 3:P0KE 75 

2,255 

180 LM=LM1 : POSITION 10,10:? "CCountdo 
wn . . . T-"; INT cLM'10* ; "J 

190 ASCC,C>=CHRSCUALCARSCX,X+2>>>:C=C+ 
l:NEXT X:GOTO 160 

200 IF PEEKC195>=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? "CANNOT CREATE FIL 
E ! " : END 

210 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
220 IF FNS=-C:" THEN ? :? " Prepare ca 
ssette, press cRETORNJ" 
230 OPEN *tl,8,0,FNS 
240 POKE 766,1:? ttl;AS;: 
250 CLOSE «tl:GRAPHlC5 0: 



POKE 766,0 

? "■[Dmajma^iir^mi 
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LD 1000 DATA 945 

1010 DATA 2552550000802510801690641332 
1316 900 013 321216922413 320 51690 0013 32 04 
13324 0162 0071600001772 04153 
102 0 DATA 0001122380250802080032380260 
8015 72 080 0623 02042 08 0022 3 02 052022242 5 5 
208229032096080165212024105 
1030 DATA 0081332121652131050001332132 
3024 016524 02011282082010 76 0210 810 01128 
042155000000000000000000008 
104 0 DATA 0002551291291291291291292551 
69000133203160800162000024165203240001 
05618520800604215 3208 006169 
1050 DATA 0001440021690011332031260320 
0623222400820822 7200192008208220160000 
1850 3200607325514 5212200192 
1060 DATA 008208244 0961690721332131690 
0013321216906413 3205169000133204169100 
1332411690 0 013324 016 00 00177 
1070 DATA 2122010321760051050640241440 
26201096176006056233032024144016201128 
144 01220116 01760021442 312 01 
1080 DATA 2241760021442341600001322431 
3324216000300624203824 313620824 916524 3 
02410506413324316000017 7242 
1090 DATA 0732551452402001920082082451 
6525208024 7081240024105008133240165241 
1050001332412 3 02122080 022 30 
1100 DATA 2131652132010732081570960760 
5 3081125029029032032032032032032032 032 
032032032032070032108032 097 
1110 DATA 032115032104 0320330320331551 
6200016900915706600 31690241570680 0 3169 
08115706900316902 9157072 003 
1120 DATA 1690001570730030320862280761 
21081029032032065110032101120112101114 
1051091011101160321051100 32 
1130 DATA 1161041010321151170981081051 
091051100971081551620001690 09157066003 
169086157068003169081157069 
1140 DATA 0031690351570720031690001570 
7300 30 3208622 80761860810290 32 0320 32 032 
032 04 0099 0410 3204 9057056057 
1150 DATA 0320651101161050990320801170 
98108105115104105110103155162 000169009 
157066003169154157068003169 



LG 
PU 
KB 
NZ 
UO 
5U 
DH 
HS 
AN 
OD 
SU 
DI 
QU 
HZ 
MU 
EP 



1160 DATA 0811570690031690321570720031 

6900015 707300303208622807624 606102 9032 

0320 320320320 32 0 32 032032032 

1170 DATA 0661210580320691141101051010 

3207810110311711515516200024 808124 30 82 

16900915706600316 9219157068 

1180 DATA 0031690811570690031690271570 

72003169000157073003032086228076 04 0082 

02 90290 69110116101114 032097 

1190 DATA 0 32112104114 0971151011551620 

00169009157066003169023157068003169082 

15706900316901715 7072003169 

1200 DATA 0001570730030320862281690011 

4124 0002162000169011157066003169078157 

06 8 00316 9 0 8015 706900 316 9 001 

1210 DATA 1570720031690001570730030320 

86228162000169005157066003169000157068 

0031690 7215706900316 9255157 

1220 DATA 0720031690001570730030320862 

2817307200313324 5076157082125029029029 

02 902 902 9029 02 9029 02 902902 9 

1230 DATA 1551620001690091570660031691 

43157068003169082157 069003169014157072 

003169000157073003032086228 

1240 DATA 1982451620001890800801570001 

12232224016208245169112141244002169000 

1412 000 0214119 80 02169015141 

1250 DATA 1970020321530801690001332461 

691001332 0516900013 32 04141001006165 088 

024105220133244 0 8215208324 0 

1260 DATA 1650891050001332411600001772 

041620001420 0000616200 0 01013 3203144 0 01 

23218907608 014 524 016524 0 024 

1270 DATA 1050401332401652411050001332 

41165203174 0 00 0 0623222480820 821717 3252 

00220125524 0 01116 900014124 0 

1280 DATA 0021692241412440020961730700 

8324 001016 90 00133 020165 0202 01001208250 

230204208002230205238001006 

1290 DATA 0321110831730010062010082081 

4 616900014100100623024 616524619724 5208 

13 3141031208 0 762230821730 31 

1300 DATA 2082010052080131740700832240 

602400062380 7008 3076145083201003208017 

174070083224 00024 0010206070 

1310 DATA 0831730312082010061442490962. 

24002225002000080 
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10 HEM MACHINE LANGUAGE STRINGER 
20 REM by Andy Barton 

30 REM CC31989, ANTIC PUBLISHING INC 
50 REM 

60 DIM A$ C120J , BS C15) , C$ C120> , MLS C1000 

0> , S$ C5> , N$ C2> ! Q = l : ED = 0 : N = l 

70 C$d*=" •• : C$ C120J =" ":C$C2>=C$ 

80 ? "B" s ? :? :? "CONUERf OBJ FILE TO 

STRING DATA":? :? 

90 ? -INPUT OBJ FILE (Dn:xxxJ" 

100 INPUT BS ' TRAP 90 : IF B$ Cl , 1>< > "D" T 

HEN 90 

110 CLOSE ttl:OPEN *1,4,0,B$ 
120 ? -STARTING LINE NO." 

130 TRAP 120:INPUT 5 L N : D 5 L N = 5 L N : 5 L N = 5 L 
N+ 1 s TRAP 40000 
135 IF SLN<482 THEN ? 
E NO. MUST BE GREATER THEN 
OTO 120 

140 ? "NAME ML STRING 

NLY>":INPUT N$:IF LENcN$i=0 THEN 140 
150 5S=N$:S$CLENCN$>+1>=5TR$CN> 
160 ? "S)":TRAP 410 

170 GET »1,X:GET *tl,X:REM DISCARD FILE 

IDENTIFICATION CODE c255,255> 
180 TRAP 42ft s REM NOMAL EOF 
190 GET »1,A:GET »1 , B I ST=B*256+ A 
200 IF ED=0 THEN B5T=ST:G0T0 220 
210 IF STOEDST THEN G05UB 450:B5T = ST: 



•STARTING LIN 
■H@m«" : ? : G 



C2 CHARACTERS 0 



OK 
ZU 



AU 
GF 
ET 
UJ 
KE 
MY 
YU 

IS 

51 
5U 
OA 

CY 
XG 

UG 
ZM 
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N = N + 1 : 5$ CLENCN$1+1)=5TRS cN* : 0 = 1 i SLN = SL 

N+2 : DSLN=SLN : SLN=SLN+1 

220 GET »1,A:GET »1 , B : ED = B**256 + A 

230 POKE 766, 1 : POSITION 2,4:? C$:POSIT 

ION 2,4:? SLN ; " "; S$ ;"$ C" ; Q ;",";: POSIT 

ION 22,4:? "» =" ; CHRS C34J ; 

240 TRAP 390:REM EARLY EOF 

250 FOR Z=l TO 90:GET «1 , X 

260 IF X=155 OR X=34 THEN 350 

270 ? CHRS c X 3 ; 

280 5T = 5T + l:IF ST > ED THEN 330 
290 NEXT Z 

300 POSITION 18,4:? Q+ Z -2 : 0=0+90 : SLN=5 
LN+l:G05UB 310:GOTO 230 

310 POKE 766, 0 : POSITION 2,10:? "CONT" : 
POSITION 1,2:? " ";:POKE 842,13:ST0P 
320 POKE 842, 12 : RETURN 
330 REM ST -> ED REACHED 

340 POSITION 18,4:? Q+Z1:G05UB 310:ED 
5T=ST : 0=Q+Z : 5LN=SLN+1 : GOTO 180 
350 IF Z=l THEN 360 

355 POSITION 18,4:? Q+Z~2:G05UB 310 : SL 
N=SLN+1 

360 POSITION 2,4:? C$:P05ITI0N 2,4:? S 
LN; " "; 5$; "$€••; Q + Z-l; ","; Q + Z-l ;">="; "C 
HR$ «" ; X ; "i " 

370 GOSUB 310 : 5LN=5LN+1 : Q=Q+Z : 5T=5T+1 : 
IF ST > ED THEN ED5T = 5T:G0T0 180 
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NP 
NM 
RX 
BA 
I1J 

OL 



OB 
HY 



IJ 
BY 



- EARLY EOF 



388 GOTO 236 
396 REM ERROR 
466 GOSUB 316 

418 ? " ERROR -- EARLY EOF 
428 GOSUB 316:G0SUB 456:? :? • 
KE 766,0:REM NORMAL EOF 
438 ? "■riHHHB these lines into 
ile then ■SEMJttm then into your bas 
ic prosran" 
448 END 

456 NUM=ED-B5T+l:P05ITI0N 2,4i 
ITION 2.4:? D5LN; "DIM " ; 5$ ; '•$ €" ; NUM; ") 
":G05UB 318:P05ITI0N 2,4:? C$ 
468 POSITION 2,4:? 5LN ; M X=U5R c ADR c- ; C 

hr$ €343 s "hhciEihnrahamhauharohnmraiiinmBWMranii 

noHGntiJHHiai jnBHraanHCiiBiiBah * * ; chr$ €34) ; 

478 ? ") , ADR€";S$;"$) , " ; BST ; " , " ; NUM ; ") 



!!!••: STOP 
? "DONE":PO 

a disk f 



? C$:POS 



JF 488 GOSUB 316:RETURN 



LISTING 2 



AY 
AZ 
GD 
EU 

IJ 
PR 

WO 

RD 

PY 

TH 



16 REM 
28 REM 

36 REM cc> 1985,1988 ANTIC PUBLISHING 
46 REM CLINES 18-256 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
56 REM CHANGE LINE 78 AS NECESSARY.) 
66 DIM FN$ €28) , TEMP$ €28) , ARS €93) : DPL=P 
EEK€18592) : POKE 16592,255 

78 FN$="D:LINE5.L5T":REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
88 ? "Kiraisk or Hassette?"; : POKE 764,25 
5 

98 IF NOT €PEEK€764)=18 OR PEEK€764)= 
58) THEN 98 

188 IF PEEK€764)=18 THEN FN$="C:" 



UB 

MY 
KB 
PU 

LW 

BQ 

YC 

DM 
BK 
MM 

CM 

Uu 

AR 
PU 
AL 

HX 
ED 

UH 

BJ 

UM 



118 POKE 764, 255 : GRAPHICS 8:? ■■ AN 

TIC'S GENERIC BASIC LOADER" 

126 ? ,"BY CHARLES JACKSON" 

138 POKE 16592, DPL : TRAP 266 

148 ? :? :? "Creating ";FN$:? "...Plea 

se stand by." 

158 RESTORE : READ LN : LM = LN : DIM A$ €LN) : 

C = l 

168 AR$="" : RE AD AR$ 

178 FOR X=l TO LENCARS) STEP 3:P0KE 75 
2,255 

188 LM=LM-l:P05ITI0N 18,18:? "€Countdo 
wn. . .T-";INT€LM^18) ;") 

196 A$€C,C)=CHRS€UAL€ARS€X,X + 2))) :C = C + 
l:NEXT X:GOTO 166 

288 IF PEEK€195)=5 THEN ? :? :? "QTOO 
MANY DATA LINES!":? -CANNOT CREATE FIL 
E ! " : END 

218 IF C<LN+1 THEN ? :? "QTOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END 
226 IF FN$="C:" THEN ? :? " Prepare ca 
ssette, press cRETORNJ" 
238 OPEN ttl,8,8,FN$ 
246 POKE 766,1:? «1;A$; 
258 CLOSE t*l:GRAPHICS 6 



i POKE 766,6 

i ? "■ramaoBBsnrirai 



1888 DATA 169 

1818 DATA 6528546486328866796836738848 

7387987883285 68446528588638328838 76878 

8596348328888 61885883682648 

1628 DATA 8656686826466346598678728826 

3 6 64 6851852841859834184184133241164133 

248184133213184133212184133 

1636 DATA 2391841332382486822362391686 

66177246145212238212288 8822382132 38248 

2 68 6822 3624119823828823 6198 

1846 DATA 2392882328966346598678728828 

3684 6 651652641659155 
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Article on page 11 



6188 
6116 
8126 
6138 
6146 
8158 
6166 
8178 
6188 
8198 
6286 
6218 
6228 
6238 
8248 
6256 
8268 
6276 
8286 
8298 
6386 
8316 
8326 
6338 
6346 
8358 
6368 
8378 
6386 
8398 
6486 
6416 
8428 
8438 
8448 
8458 
8466 
6478 
6488 

38 



; MAKEBOOT €FOR 05'A+) 

; BY BOB MARTIN 

; € C )1989, ANTIC PUBLISHING INC 

; MAKE BOOT DISK FROM DOS FILE 



MEMTOP 


= $6A 


MEMLO = 


$82E7 


HATABS 


= S631A 


CH = 


S82FC 


CR = 


$66 


BUF1 = 


$8568 


BUF2 = 


$8686 


INBUFF 


= $F3 


CIX = 


SF2 


LBUFF = 


$8588 


FR8 = 


$D4 


FR1 = 


$E8 


ICBAL = 


$8344 


ICBLL = 


$6348 


ICAX1 = 


$834A 


ICAX2 = 


$834B 


CIOU = 


$E456 


ICCOM = 


$6342 


AFP = 


$D868 


FASC = 


$D8E6 


IFP = 


$D9AA 


FPI = 


$D9D2 


; LOOK 


FOR AN 


; THE HANDLER 


it= 


$7888 


INSERT 




LDX 


«8 


NEXTPLACE 


LDA 


HATABS 


BEQ 


ESPOT 



6496 


INX 




6588 


INX 




8516 


INX 




6528 


BNE 


NEXTPLACE 


8536 


BEQ 


INSERT 


6546 


t 




6558 


; FOUND AN EMPTY SPOT 


6568 






8578 


ESPOT 




8586 


LDA 


«$42 


8598 


STA 


HATABS, X 


8668 


LDA 


s*BTAB&$FF 


6618 


STA 


HATAB5+1, X 


6626 


LDA 


**BTAB'$6186 


8636 


STA 


H AT AB5+2 , X 


8646 






6656 


; FIND 


THE E: HANDLER 


6668 


1 




6676 


EFIND 




8686 


LDX 


tie 


6696 


ELOOP 




6786 


LDA 


HATABS, X 


6718 


CMP 


U'E 


6728 


BEQ 


EFND 


6738 


INX 




8748 


INX 




6756 


INX 




8766 


BNE 


ELOOP 


6778 


BEQ 


EFIND 


8786 


i 




6798 


i FOUND THE E: POINTER 


8866 






6818 


EFND 




8826 


LDA 


HATAB5+1, X 


8836 


STA 


$D8 


6846 


LDA 


HATAB5+2,X 


8858 


STA 


$D1 


8866 


LDY 


«4 


8876 


LDA 


€$D8) , Y 
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6886 
8896 
8966 
8916 
8926 
6936 
8948 
8956 
8968 
8976 
6988 
8998 
1866 
1818 
1626 
1638 
1646 
1658 
1666 
4668 
4618 
4626 
4638 
4848 
4656 
4868 
4676 
4886 
4698 
4168 
4118 
4128 
4138 
4148 
4156 
4168 
4178 
4186 
4196 
4268 
4218 
4226 
4236 
4246 
4256 
4266 
4276 
4998 
5688 
5885 
5816 
5815 
5826 
5625 
5836 
5635 
5648 
5845 
5856 
5655 
5666 
5865 
5878 
5875 
5688 
5885 
5898 
5895 
5188 
5185 
5118 
5115 
5128 
5125 
5136 
5135 
5148 
5145 
5158 
5155 
5168 
5165 
5178 
5175 
5188 
5185 
5198 
5195 
5266 
5265 
5218 
5215 



5TA 
INY 
LDA 
STA 
INV 
LDA 
STA 
INY 
LDA 
STA 



EGET+1 

c$D6i , Y 
EGET+2 

c$D8> , Y 
EPUT+1 

c$D6> , Y 
EPUT+2 



L813 



INC EGET+1 

BNE L813 

INC EGET+2 

I 

INC EPUT+1 

BNE L812 

INC EPUT+2 



; 05'A + UERSION 
L812 

; SET THE LOMEM POINTER 



LHP 



LDA *tLAST&$FF 

STA MEMLO 

LDA »LAST'$8188 

STA MEMLO+1 

LDA »IMSG&$FF 
LDY *tIMSG'$8188 
J5R PRINTE 



CU26 RTS 



IM5G 



BYTE CR,CR,"The device" 
.BYTE M Bn: is now" 
BYTE ready. ",CR 
BYTE "Use the copy connand' 
BYTE " to access. ",CR 
BYTE " ces. COPY DEFILE*" 
BYTE "B2: ". ■ 1+128 

*= $2188 



HANDLER AND HANDLER TABLE 
FOR "B : " (MAKE B 0 OT J 
HANDLER 

HANDLER TABLE 

BTAB 

. WORD BOPEN-1 
.UORD BCLOSE-1 
. WORD NOFNT1 
. UORD BPUT-1 
• UORD STATUS-1 
JMP NOFNT 

; HANDLER UARIABLES 

HEADER .BYTE $86 
HOLDA .BYTE $88 
HOLDX .BYTE $86 
STATS -BYTE $86 
SECNO .UORD $81 
BYTNO .BYTE $88 
MAX5EC .UORD $88 
INFOBY .BYTE $86 
MFLAG .BYTE $88 

RUNADR .UORD $86 ; INT ADR nust 
INT ADR .UORD $88 ;foilow RUNADR 
LOADAD .UORD $86 

CURMEM .UORD $68 ; LAST AD Must 
LASTAD .UORD $86 ;follow CURMEM 

; HANDLER OPEN FUNCTION 



BOPEN 

LDA »$80 j 

STA BYTNO 

STA SECNO+1 

STA MAXSEC 

STA MAXSEC+1 

STA MFLAG 

STA RUNADR 

STA RUN ADR+1 

STA INT ADR 



clear variables 



5228 
5225 
5236 
5235 
5246 
5245 
5256 
5255 
5266 
5265 
5278 
5275 
5288 
5285 
5296 
5295 
5388 
5365 
5318 
5315 
5326 
5325 
5336 
5335 
5348 
5345 
5356 
5355 
5366 
5365 
5376 
5375 
5388 
5385 
5396 
5395 
5466 
5465 
5416 
5415 
5426 
5425 
5438 
5435 
5446 
5445 
5456 
5455 
5466 
5465 
5476 
5475 
5488 
5485 
5498 
5495 
5586 
5565 
5516 
5515 
5526 
5525 
5536 
5535 
5546 
5545 
5556 
5555 
5566 
5565 
5576 
5575 
5588 
5585 
5598 
5595 
5666 
5665 
5616 
5615 
5628 
5625 
5638 
5635 
5646 
5645 
5656 
5655 
5666 
5665 
5676 
5675 



STA 
LDA 
STA 
STA 
LDA 
STA 
JSR 
CLC 
LDA 
ADC 
STA 
LDA 
LDY 
JSR 
JSR 
BNE 
LDA 
STA 
JMP 

L814 

LDA 
LDY 
JSR 
JSR 
BCS 
LDA 
STA 
LDA 
STA 
ORA 
BEQ 

B0P61 

JSR 
INC 
BNE 
INC 

B0P62 

LDA 
BNE 
DEC 

B0P83 

DEC 
BIT 
BPL 

B0P84 

LDA 
STA 
STA 
STA 
LDA 
STA 



INT ADR + 1 
«$81 
SECNO 
STATS 
**$66 
HEADER 
CLEAR 

$21 
«$38 
MSG2A 
«M5G2«$FF 
*tMSG2'$6168 
PRINTE 
YESNO 
L814 
tt$86 
STATS 
EXIT 



; disk it 
;nake ASCII » 



Y'N? 

abort with 
error = 128 



»MSG1&$FF ;ciear 

s*MSGl'$6166 

PRINTE 

GETNUM 

L614 jerror? 

FR8 

BUF2 

FR6 + 1 

BUF2+1 

BUF2 

B0P84 



sees? 



PUT5EC 
SECNO 
B0P62 
SECNO+1 

BUF2 

B0P63 

BUF2+1 

BUF2 

BUF2+1 

B0P81 

»8 

SECNO+1 
MAXSEC 
MAXSEC+1 
ttl 

SECNO 



; f i 1 1 
; wi th 



sectors 
zeros 



JMP EXIT 

; HANDLER SUBROUTINES 

* 

I D Store load address and 
; end of load address 



LOD ADR 
PHA 
TYA 

SEC 

SBC *t3 
EOR »$FF 
TAY 
INY 
PLA 

STA CURMEM, Y 
RTS 



2* Get two 2byte 
load addresses 



; c a l c index 6 
; store load 
;address & 
;end of load 



LDINFO 
LDA 
BNE 
LDA 
STA 

L887 

DEC 
LDY 
LDA 
JSR 
LDY 
BEQ 
CPY 
BNE 



INFOBY 

L867 
»4 

INFOBY 

INFOBY 

INFOBY 

HOLDA 

LOD ADR 

INFOBY 

LD63 

U2 

LD62 



LDA CURMEM jcheck for 

CMP CURMEM+1 ;appended file 

BNE LD82 
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5680 
5685 
5690 
5695 
5709 
5705 
5710 
5715 
5720 
5725 
5730 
5735 
5740 
5745 
5750 
5755 
5760 
5765 
5770 
5775 
5780 
5785 
5790 
5795 
5600 
5805 
5810 
5815 
5820 
5825 
5830 
5835 
5840 
5845 
5850 
5855 
5860 
5865 
5870 
5875 
5880 
5885 
5890 
5895 
5900 
5905 
5910 
5915 
5920 
5925 
5930 
5935 
5940 
5945 
5950 
5955 
5960 
5965 
5970 
5975 
5980 
5985 
5990 
5995 
6000 
6005 
6010 
6015 
6020 
6025 
6030 
6035 
6040 
6045 
6050 
6055 
6060 
6065 
6070 
6075 
6080 
6085 
6090 
6095 
6100 
6105 
6110 
6115 
6120 
6125 
6130 
6135 

40 



LD02 
LD03 



CMP »$FF 


6140 


STA 


SECNB 


BNE LD02 


6145 


LDA 


BUF2+1 


LDA t*4 


6150 


STA 


SECNO+1 


STA INFOBY 


6155 


JMP 


GET SEC 




6160 


LDI2 




JMP EXIT 


6165 


JMP 


EXIT 




6170 






JSR INRUAD 


6175 


; 6* Save run and 


BE Q LD02 


6180 






BNE L008 


6185 


STIRAD 






6190 


JSR 


INRUAD 


Check for load file run 


6195 


BNE 


IR01 


or init . address 


6200 


JSR 


CMPMEM 


If CURMEM & LAST AD 


6205 


BCC 


IR01 


are <$2E0 or >$2E3 


6210 


LDA 


CURMEM 


THEN Z=0 


6215 


AND 


*t$0F 


ELSE Z=l 


6220 


TAY 





INRUAD 
LDA 
CMP 
BNE 

IRA02 

CMP 
BNE 
LDA 
CMP 
BCS 
CMP 
BCS 
LDA 
CMP 
BCC 
CMP 
BCC 
LDA 

IRA01 

R fS 



CURMEM+1 
LASTAD+1 
IRA01 

«2 

IRA01 

ttSDF 

CURMEM 

IRA02 

LASTAD 

IRA02 

»$E3 

CURMEM 

IRA02 

LASTAD 

IRA02 

«0 



4) Check for load address 
less than initial 



L008 



LDA LOAD AD-*- 1 

CMP CURMEM+1 

BCC LF01 

BNE LF02 

LDA LOADAD 

CMP CURMEM 

BEQ LF01 

BCC LF01 

LDA «MSG6&$FF ; LOAD AD > CURMEM 

LDY **MSG6/$0100 

JSR PRINTE 

LDY »168 

STY STATS 

JMP EXIT 



5) Calculate sector and byte 
for new load address 



LF02 



LF01 



L009 



LF11 



LDI1 



SEC 




Find offset 


LDA 


CURMEM 




SBC 


LOADAD 




STA 


BUF2 




LDA 


CURMEM+1 




SBC 


LOADAD +1 




STA 


BUF2+1 




LDA 


BUF2 


caic byte 


AND 


»$7F 




STA 


BYTNO 




LDX 


«7 




CLC 




caic sector 


ROR 


BUF2+1 ; 


divide by 128 


ROR 


BUF2 




DEX 






BNE 


L009 




INC 


BUF2 




BNE 


LF11 




INC 


BUF2+1 




LDA 


BUF2 ; 


Load sec if dif 


CMP 


SECNO 




BNE 


LDI1 




LDA 


BUF2+1 




CMP 


SECNO+1 




BEQ 


LDI2 




LDA 


BUF2 





address 



6225 
6230 
6235 
6240 
6245 
6250 
6255 
6260 
6265 
6270 
6275 
6280 
6285 
6290 
6295 
6300 
6305 
6310 
6315 
6320 
6325 
6330 
6335 
6340 
6345 
6350 
6355 
6360 
6365 
6370 
6375 
6380 
6385 
6390 
6395 
6400 
6405 
6410 
6415 
6420 
6425 
6430 
6435 
6440 
6445 
6450 
6455 
6460 
6465 
6470 
6475 
6480 
6485 
6490 
6495 
6500 
6505 
6510 
6515 
6520 
6525 
6530 
6535 
6540 
6545 
6550 
6555 
6560 
6565 
6570 
6575 
6580 
6585 
6590 
6595 



IR01 



LDA 
STA 
INC 
JMP 



HOLDA 
RUN ADR . Y 
CURMEM 
EXIT 



JMP L005 

i 

; 7» Process header infornation 
; for start of load file 

F5TSIX 



FS51 



FS02 



FS03 



FS04 



F505 



CPY 


»S04 




BEQ 


F551 




JMP 


F501 




LDA 


»FM1&$FF ; 


spec i f y 


LDY 


»FM1'$0100 


; l oad 


JSR 


PRINTE ; 


i n for Mat i oi 


JSR 


YESNO 




BNE 


FS02 




JMP 


F501 




LDA 


**FM2&$FF ; 


set sector 


LDY 


**FM2'$0100 


; count 


JSR 


PRINTE 




JSR 


GETNUM 




BCS 


FS02 




LDA 


FRO 




BEQ 


F503 




STA 


BUF 1+1 




LDA 


t* F M 3 & $ F F ; 




LDY 


«PM ? /SRI A V\ 

♦♦l MO' X3 AO o 


» address 


J jK 


PRINTE 




ICD 

JbH 


btl NUrl 




DOC 

□ Lb 


r ju J 




i t\ ft 


P D Q 




ORA 


FR0 + 1 




BEQ 


F503 




LDA 


FRO 




STA 


BUF1+2 




STA 


LOADAD 




LDA 


FR0 + 1 




51 A 


BUF1+3 




STA 


LOAD AD+1 




LDA 


«FI4&$FF ; 


get init 


LDY 


«FI4'$0100 


; a d d r e s s 


JSR 


PRINTE 




JSR 


GETNUM 




BCS 


F504 




LDA 


FRO 




ORA 


FR0 + 1 




BEQ 


FS05 




LDA 


FRO 




STA 


BUF1+4 




LDA 


FR0 + 1 




STA 


BUF1+5 




LDA 


**FM4&$FF ; 


get run 


LDY 


»FM4'$0100 


; a d d r e s s 


JSR 


PRINTE 




JSR 


GETNUM 




BCS 


F505 




LDA 


FRO 




ORA 


FR0 + 1 




BEQ 


F506 




LDA 


**$4C 




STA 


BUF1+6 




LDA 


FRO 
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6660 


5T A 


BUF1+7 


7QCQ 

f O O O 


TUP 


c; f r m n •* 1 




6685 


LDft 


FR0 + 1 


7065 


L P 04 






6610 


5T A 


B U p 1 * 8 


7070 




a L 1 JUL 




6615 








LDA 


»0 




662 0 


1 J u 0 




f U O W 


C T A 


□ VTUfl 

if Y 1 NU 




6625 


L DO 




r O O 0 


BE 0 


EXIT 




6 6 3 0 


3 1 H 


nCHVCn 


Toon 








6635 


JSR 


PUT5EC 




L006 






6640 


JMP 


LDINFO 


not) 


JSR 


CMPMEM 




6645 






71 QC 
f X 0 O 


BCS 


EXIT 




6650 


F501 




71 1 Q 


JMP 


PUTSEC 




6655 


LDA 


HDLDA ; set load 


< 110 




6660 


STA 


LOADAD+1 ; address 


■7 1 ? n 

r .L&ii 


; HANDLER CLOSE FUNCTION 


6665 


LDA 


CURMEM ; fron file 


719c 
f i. Z Q 








6676 


STA 


LOAD AD 


7130 


* r% r- w~ 

B L L 0 5 E 






6675 


LDA 


HOLDA 


7135 


BIT 


5 I ATS 




6680 


DEC 


HEADER 


r X «♦ O 


U H L 


BCL 01 




6685 


LD Y 


HEADER 

11 l n 1/ l 


71 

r x ■# w 


JMP 


EXIT 




6690 


CP Y 


U4 ; Y < 4 


r x 0 u 


BCL01 






6695 


BCS 


F 5 0 7 ;nn 

I Jul 9 II %J 


71 CL 
f X O O 


JSR 


PUTSEC 




6700 


J5R 


LOD ADR 

%m %9 v n v 


r J.OU 








6705 


JMP 


EXIT 


71 cc 


L U R 


*tl 




6710 


FS07 




"7 1 *7 CI 


STA 


SECNO 




6715 


CMP 


^ I I > i U □ U I X X C : 


1 if J 


1 n a 
LUH 






6720 


BE Q 


EXIT 


7180 


3 1 H 


j L U TO U r X 




6725 


LDA 


«MSG5&$FF 


7185 


J J H 


U L 1 3LL 




6730 


LD Y 


»M5G5/$0100 


7190 








6735 


JSR 


PRINTE 


7195 


1 no 

LUH 


wnjoiftvrr # 


SGctor 


6740 


LD Y 


»168 ;error if not 


7200 


1 nv 


«ll J04' * O 1 u O 


» count 


6745 


STY 


STATS ;load file 


7205 


J Jn 


PRTIiTF 
r ni.W 1 L 




6750 


i 




7210 


1 no 

LUH 


mov «;fp 




6755 


; GET STATUS AND EXIT HANDLER 


7215 


CTA 
J 1 H 


f no 

r no 




6760 






7220 


1 no 


I1HA J L L» ~ X 




6765 


STATUS 




7225 


CTA 
J 1 H 


F D M + 1 

r rs 0 T X 




6770 


EXIT 




7230 


ICO 

J jH 


rNlin 




6775 


LD Y 


STATS 


7235 


1 C D 
J3K 


dpi ciin 
DLL jUd 




6780 


TYA 


; Error in Y 


7240 


DlU 


dpi a 




6785 


NOFNT RTS 


7245 


1 n a 


MAVCtp 

rlH A jLI 




6790 


i 




7250 


J 1 H 


n n f 1 4-1 

D U r x T 1 




6795 


; 8* Clear output buffer 


7255 








6800 






7260 


n r 1 a ~i 

13 Li L U 0 






6805 


CLEAR 




7265 


1 n 0 

LUH 


t m t a n n 

X TO 1 HUM j 


ini t • 


6810 


LDX 


*t$7F 


7270 


n d 0 

U r% H 


X N I HUn+l t 


address 


6815 


LDA 


«$00 


7275 


n f o 

Dlh 


DPI 04 
D L L U*t 




6820 


CLR1 




7280 


1 no 

LUH 


ttF M"^ AS F F 




6825 


STA 


BUF1, X 


7285 


1 nv 

L U I 


ttFM'i/SRl cm 




6830 


DEX 




7290 


JSR 


PRINTE 




68 3 5 


BPL 


CLR1 


7295 


1 n 0 

LUH 


tut a n n 

X TO 1 HUn 




6 84 0 


RTS 




7300 


CTA 

j 1 H 


F D CI 




684 5 






7305 


1 n 0 

LUH 


TMTAnD-4-1 
XIM 1 HUK*! 




6 8 5 0 


; 9) Check for end of load 


7310 


j 1 H 


FDQ + 1 
rKiJ + l 




6855 


c=e 


CURMEM > LASTAD 


7315 


icn 
JDK 


rNUri 




6860 


; C = l 


CURMEM <= LASTAD 


7320 


■ CD 


Dpi ciin 
DLL jUo 




6 8 6 5 






7325 


u t II 


Dpi r* A 

OLLU4 




6870 


CMPMEM 




7330 


1 n a 

LUH 


TMTAHD 
IN 1 HUH 




6875 


LDA 


LA5TAD+1 


7335 


T O 

J 1 H 


R 1 1 F 1 +4 

our x T 




6880 


CMP 


CURMEM+1 


7340 


1 no 

LUH 


tnt ann-f 1 

X TO 1 HUn T l 




6885 


BCC 


L003 


7345 


CTA 
3 1 H 


our x ▼ 3 




6890 


BNE 


L003 


7350 


i 






6895 


LDA 


LASTAD 


7355 


dpi a a 
DLLU4 






6900 


CMP 


CURMEM 


7360 


LDA 


n 11 11 a n it 

RUNADR ; 


run 


6905 


L003 RTS 


7365 


OR A 


n 1111 a r\ 11 ■ 4 

RUNADR+1 ; 


address 


6910 






7370 


BE Q 


BCL05 




O J X o 


; HANDLER 


PUT BYTE FUNCTION 


7375 


LDA 


»FM6&$FF 




fi 9 9 M 






7380 


LD Y 


»EM6^$0100 




cqoc; 
D/Z.O 


BPUT 




7385 


JSR 


PRINTE 




6 9 3 0 


STA 


HOLDA ;save byte 


7390 


LDA 


RUNADR 




£ Q "3 C 
D7 JO 


LD Y 


HEADER ;fron CIO 


7395 


STA 


FRO 




f; 9 d i\ 


BE Q 


BP02 


7400 


LDA 


RUNADR-*- 1 




O 7 *♦ O 


JMP 


FSTSIX 


7405 


STA 


FR0 + 1 




COCO 


BP02 




7410 


JSR 


PNUM 




O 7 O %> 


LDA 


INFOBY 


7415 


JSR 


BCLSUB 




cqcn 
D/DO 


BNE 


INF11 


7420 


BEQ 


BCL05 






JSR 


CMPMEM ;end of load? 


7425 


LDA 


*$4C 




CQ7Q 


BCS 


BP01 ;no 


r *f O O 


STA 


BUF1+6 




07r w 


INF11 




1 A 1 *L 
r *l 0 O 


LDA 


RUNADR 




6 9 8 0 


JMP 


LDINFO 


744 0 


STA 


BUF1+7 




6 9 8 5 


BP01 


STIRAD ;run or init? 




LDA 


RUMHDR+1 




D77W 


JMP 


74 50 


STA 


BUF1+8 




D773 


L005 




r 4 b b 










LDX 


BYTNO 


r *♦ 0 0 


BCL05 






*7 q a c: 
r o k) O 


LDA 


HOLDA 


r *t D O 


JMP 


PUTSEC 




/ 0 1 U 


STA 


BUF1,X ;saue in output 


7 A 7 CI 








7041: 
{ tJ .1 O 


INC 


CURMEM ;buffer 


74 7 5 


BCLSUB 






7020 


BNE 


L004 


7480 


LDA 


»FM7&$FF 




7025 


INC 


CURMEM+1 


7485 


LD Y 


«FM7/'$0100 




/Hod 


L004 




r *t 7 O 


JSR 


PRINTE 




7035 


INC 


BYTNO ;end of sector 


7495 


JMP 


YESNO ;Y^N? 


7040 


BPL 


L006 ;yes 


7500 








7045 


JSR 


PUT5EC ;saue sector 


7505 


;I"0 SUBROUTINES 




7050 


INC 


SECNO 


7510 








7055 


BNE 


LP04 


7515 


; 1) Read and write 


to diSK 


JULY 1989 















7528 


; 








7980 






7525 


GET5EC 








7985 


; 43 Get 


a nunber 


7530 


LDY 


*t$52 






7990 


; result in FRO 


7535 


LDP 


tt$40 






7995 


i 




7540 


BNE 


DI5KI0 






8000 


GETNUM 




7545 


PUT5EC 








8005 


LDP 


«$30 


7550 


LOP 


MPXSEC+1 ; Check for 


8010 


STP 


LBUFF 


7555 


BEQ 


L010 ; too 


Many 


8015 


LDX 


«1 


7560 


LDA 


MFLPG ; load 


sectors 


8020 


STX 


HOLDX 


7565 


BNE 


L010 






8025 


NOT CR 




7570 


LDA 


«M5G3&$FF 






8030 


JSR 


EGET ;Get a nunber 


7575 


LDY 


»MSG3'$0100 






8035 


LDX 


HOLDX 


7580 


JSR 


PRINTE 






8040 


INC 


HOLDX 


7585 


INC 


MFLPG 






8045 


STP 


LBUFF, X ;5tore it at 


7590 


L010 








8050 


CMP 


*t$9B ;$580 


7595 


LDP 


MPXSEC+1 






8055 


BNE 


NOT CR 


7600 


CMP 


SECNO+1 






8060 


LDP 


«LBUFF&$FF ;Point to 


7605 


BCC 


PU02 






8065 


STP 


INBUFF ; PSCII string 


7610 


BNE 


PU01 






8070 


LDP 


**LBUFF'$0100 


7615 


LDP 


SECNO 






8075 


STP 


INBUFF+1 


7620 


CNP 


MPXSEC 






8080 


LDP 


»8 


7625 


BCC 


PU01 






8085 


STP 


C I X 


7630 


PU02 








8090 


JSR 


PFP ;P5CII to FP 


7635 


LDP 


SECNO 






8095 


BCS 


GN01 ;error if C set 


7640 


5TP 


MPXSEC 






8100 


JSR 


FPI ;FP to integer 


7645 


LDP 


SECNO+1 






8105 


GN01 RTS 


7650 


5TP 


MPXSEC+1 






8110 






7655 


PU01 








8115 


; 5> Print text to screen 


7660 


LDY 


*t$57 ; Use 


t*$50 


8120 


; Low byte of text in 


7665 


LDP 


«$80 ; for 


no-ueri f y 


8125 


; accunuiator. High byte 


7670 


D1SKIO 








8130 


; of 


text in Y register 


7675 


STY 


$0302 






8135 






7680 


5TP 


50303 






8140 


PRINTE 




7685 


LDP 


»$31 






8145 


STP 


MSGN+1 


7690 


STP 


$0300 






8150 


STY 


M5GN+2 


7695 


LDP 


$21 






8155 


JMP 


MSGN 


7700 


STP 


$0301 






8160 


EP02 




7705 


LDP 


«$80 






8165 


INC 


MSGN+1 


7710 


STP 


$0308 






8170 


BNE 


MSGN 


7715 


LDP 


«$0F 






8175 


INC 


MSGN+2 


7720 


STP 


$0306 






8180 


MSGN 




7725 


LDP 


»BUF1&$FF 






8185 


LDP 


MSGN 


7730 


STP 


$0304 






8190 


BEQ 


EP04 


7735 


LDP 


*t0 






8195 


BMI 


EP05 


7740 


STP 


$0309 






8200 


JSR 


EPUT 


7745 


LDP 


«BUF1'$0100 






8205 


JMP 


EP02 


7750 


STP 


$0305 






8210 


EP04 




7755 


LDP 


SECNO 






8215 


JSR 


PNTCR 


7760 


STP 


$030P 






8220 


JMP 


EP02 


7765 


LDP 


5ECN0+1 






8225 






7770 


STP 


$030B 






8230 


EP05 




7775 


JSR 


$E459 






8235 


PND 


«$7F 


7780 


BMI 


ERROR 






8240 


BEQ 


EP06 


7785 


RT5 








8245 


JSR 


EPUT 


7790 


ERROR 








8250 






7795 


LDP 


$0303 






8255 


PNTCR 




7800 


STP 


STPTS 






8260 


LDP 


*t$9B 


7805 


TP Y 








8265 


JSR 


EPUT 


7810 


RT5 








8270 


EP06 RTS 


7815 










8275 


» 




7820 


; 2> Y'N - Result in 


accunuiator 


8280 


;JUMP TO SCREEN EDITOR 


7825 


; Y = 


= 1 






8285 


; PUT BYTE ROUTINE 


7830 


; N = 


= 0 






8290 






7835 










8295 


EPUT JMP EPUT 


7840 


YESNO 








8300 






7845 


LDP 


«$FF 






8305 


;JUMP TO SCREEN EDITOR 


7850 


STP 


CH 






8310 


; GET BYTE ROUTINE 


7855 


YN1 








8315 


# 




7860 


LDP 


CH ;Get 


1 


character 


8320 


EGET JMP EGET 


7865 


CMP 


*43 ;Y? 






8325 


s 




7870 


BNE 


YN2 






8330 


s 




7875 


LDP 


ui 






8335 


FM1 .BYTE CR,"Do you wish to " 


7880 


BNE 


YN4 






8340 


.BYTE "specify the boot",CR 


7885 


YN2 






8345 


.BYTE " sector information " 


7890 


CMP 


»35 ;N? 






8350 


.BYTE "CY'N>", *? + 128 


7895 


BNE 


YN1 






8355 


I 




7900 


LDP 


«0 






8360 


FM2 .BYTE CR, "Enter boot sector" 


7905 


YN4 






8365 


•BYTE " count ",128 


7910 


PHP 








8370 






7915 


LDP 


«$FF 






8375 


FM3 .BYTE CR, "Enter load " 


7920 


STP 


CH 






8380 


.BYTE "address ",128 


7925 


PLP 








8385 


i 




7930 


RT5 








8390 


FM4 .BYTE CR, "Enter run " 


7935 










8395 


•BYTE "address ",128 


7940 


; 3» Print the integer 


in FRO 


8400 






7945 










8405 


FI4 .BYTE CR, "Enter " 


7950 


PNUM 








8410 


.BYTE "initialization " 


7955 


JSR 


IFP 






8415 


•BYTE "address ",128 


7960 


JSR 


FPSC 






8420 


3 




7965 


LDP 


INBUFF 






8425 


FM5 .BYTE CR,"Load file " 


7970 


LDY 


INBUFF+1 






8430 


.BYTE "initiation address " 


7975 


JMP 


PRINTE 






8435 


•BYTE "= ",128 



42 
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8446 l 

8445 FM6 .BYTE CR,"Load file ■" 
8458 .BYTE 'Tun address " 

8455 -BYTE ••= ",128 

8468 ; 

8465 FM7 .BYTE CR, "Insert into •• 
8478 .BYTE "boot sector cY'N>" 

8475 .BYTE ' ?+128 

8488 ; 

8485 M5G.1 .BYTE CR,"How Many sectors" 
8498 .BYTE " to c l ear " , ' ?+128 

8495 ; 

8588 M5G2 -BYTE CRi "Make disk »" 
8565 ; 

8516 M5G2A .BYTE $31," into boot" 
8515 .BYTE " disk c Y' N> , • 7+128 

8528 ; 



8525 MSG3 .BYTE CR, "Sector count" 
8536 .BYTE " exceeds 25", '5+128 

8535 ; 

8546 MSG4 .BYTE CR,"The boot sector" 
8545 .BYTE " count is ",128 

8556 ; 

8555 M5G5 .BYTE CR,"Not a load" 
8568 .BYTE " fil",*e+128 

8565 ; 

8576 M5G6 .BYTE CR , "Spec i f i ed load" 
8575 -BYTE " address is",CR 

8588 .BYTE " is not lowest" 

8585 .BYTE " addres of fil" 

8596 .BYTE 'e+128 

8595 ; 

8686 LAST . END 



Tech Tips 



GOTOLIST 



BY GREGG HESLING 



Don't type the 
TYPO II Codes! 



DF 
AA 
QH 

GF 



BP 
LQ 
MK 



JU 
HS 



K5 



CN 



tic 



UG 



18 
26 
36 
319 
DIM 
AS 
319 
F L 
319 
> :G 
319 
CP 
PK1 
319 
IF 
319 
D = 2 
9 
319 
61 
R 

319 
: F = 
8~ c 
319 
= A + 
8 T 
319 
GOT 
• 38 



REM GO 
REM BY 
REM cc 
96 CLR 
A$cft> 
A=l : B= 

91 LIN 
INE=31 

92 IF 
0T0 31 

93 PK8 
KK>14 
>=128> 

94 RES 
PK60D 

95 IF 
3 OR D 

96 PK1 
IF PK1 

GOTO 

97 G = 6 
INT CE' 
PK2-DJ 

98 A5 c 
19 : C=C 
HEN 31 

99 C = C 
0, 11, G 

ON, 35 



TOLIST 
GREGG 
J1988, 
: A = IN 
, B$ C7J 
PEEKC1 
E=PEEK 
998 TH 
C=PEEK 
991 

=PEEKc 
AND P 
THEN 

TORE : 
THEN 

PK8=38 

=243*2 

=PEEKC 
>=128 

31998 
:F0R D 
16> : G= 
+6 . 5) > 
A+6>=B 
+ 2 + 6* c 
996 

+1 : GOT 
0 T0,1 
RESTO 



HESL 
ANTI 
T c CFR 

AS = 
361+P 
CB* +P 
EN ? 
CB + 2I 

B + CI : 
KK12 
31999 
FOR E 
NEXT 
THEN 
C = C + 



ING 

C PUBLISHING 
Ec6>-1888>'19**19: 
fiS (fl) = : fl$ (2) = 

EEKC137)*256 
EEKCB+1>*256 i C=l « I 
AS : END 
THEN B=B+PEEKcB+2 

PK1 = PEEKCB + C + U : IF 
8> OR CPK8=27 AND 

= 1 TO 8 : READ D,B$: 
E:G0T0 31999 

D = PEEKcB + C + 2) : D= c 
D:IF D=6 THEN 3199 



B+C+1J : PK2=PEEKCB+C+2J - 
OR PK2<6 THEN A$cA>="UA 

=3 TO PK2 : E=PEEKCB+C+D3 
G+ c CE + F*18-F*16»*INT cie 
i NEXT D : A$ cAJ =5TR$ CGJ 
$: A$CA + 14J=STR$CLINEJ : A 
PKK128>:IF PEEKCB + CJ=1 

0 31992:DATA 4, LIST, 18, 
2, GOSUB, 13, TRAP, 27, THEN 
RE 



Recently I purchased an unprotected BASIC program 
and found it was mostly ' 'spaghetti code" — a mindless 
collection of GOTO, GOSUB, and TRAP statements! I im- 
mediately decided to re-write it, but it was too long and 
too complicated. 

I was deathly afraid to change any lines, fearing another 
line would try to call it! Because it was a BBS program, 
I couldn't have some user get a READY prompt while I 
wasn't home! 

In my typical fashion of trying to write programs which 
I understand nothing about, I seem to have succeeded with 
GOTOLIST. 

GOTOLIST will search any BASIC program and find all 
line numbers referenced by other program lines. For ex- 
ample, GOTOLIST would save line 10 if it is: 

JULY 1989 



10 GOTO 100 

Although GOTOLIST is small, it's not stupid. If it en- 
counters the following line: 

10 GRAPHICS 0:? "HELLO."; :INPUT AS:IF AS = "NO" 
THEN ? "OK":GOTO 100 

all it saves is: 10 GOTO 100. 

Type in the listing below, GOTOLIST. LST, check it with 
TYPO II, and list a copy to disk with the command: 

LIST "D:GOTOLISTLST",31990,31999 

Now type NEW and LOAD a copy of that favorite pro- 
gram you've been dying to modify but are afraid of des- 
troying. (Never modify your original copy — you're just 
asking for trouble!) 

First, make sure your program doesn't use any line num- 
bers above 31990. Then ENTER "D: GOTOLIST. LST" 
[RETURN] and type GOTO 31990. In a short while (It takes 
about a minute to check your program, so bring a good 
book if your program is long) GOTOLIST will display its 
list of lines which call other program lines. 

If you want to see the list again, type PRINT A$, or 
LPRINT A$ for a printout. For best results, put your printer 
in 76-column mode by typing: 

LPRINT CHRS(27);CHR$(81);CHRS(76) 

Your printer may require a different code — consult your 
printer manual. 

Now, before you change any line, just a glance at the 
list will insure nothing is trying to use that line for other 
purposes! If something is, however, just one more glance 
and you'll see which line is the culprit, and you can 
modify to your heart's content! 



Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 



Antic Classifieds 



SOFTWARE, ETC. 

ENJOY quality PD software! Games- 
productivity — utilities — more! Demo disk, 
$3.00. . .catalog FREE. Homemade, 6011 Hyde 
Park Circle, Suite 207, Jacksonville, FL 32201 

MUSIC LOVERS! MIDI YOUR ATARI! We have 
music software, Midi interfaces, and hundreds 
of pre-programmed songs available for the Atari 
XL/XE and Atari ST. For catalog send $1.00 to 
The MIDI Inn, RO. Box 2362, Dept. AN7, West- 
mont, IL 60559. Specify your computer, music 
software and Midi instruments on hand. (9/89) 

CHRISTIAN SOFTWARE and PUBLIC DO- 
MAIN PD as low as $1.80/disk. Send SASE for 
Catalog. AGAPE GAMES Disk five Christian 
Games $12.95 (8 BITS W/48K). Dan Sharpe 
GPO Box 911 Chicopee MA 01021 (9/89) 

USED 8-BIT EQUIPTMENT, SOFTWARE, AC- 
CESSORIES, SEND S.A.S.E. (45 CENTS) BUSI- 
NESS SIZE, OR 45 CENT STAMPS FOR PRICES 
AND HUGE LIST. L. CHRISTOFFER, 1806 
PATRICK, BURLINGTON, WA 98233 (8/89) 

SI gives you MORE for LESS! Our SUPERIOR 
ATARI 800/XL/XE P-D Theme Collections aver- 
age 35 programs (7C each!) per D-S disk. Ship- 
ping FREE. Send only $3 00 for MLX GAMES' 
GREATEST HITS (our Most Popular title) — 
receive Si's newest Catalog FREE! Catalog 
alone/ $2.00. SASE for Disk Listings only 
SOFTWARE INFINITY, 642 East Waring Ave- 
nue, State College, PA 16801 (8/89) 

****** 

The A Exchange— A Users Newsletter for ALL 
Atari Owners. Send SASE for FREE Issue. The 
A Exchange, P.O. Box 25852-A, Fresno, CA 
93729. (8/89) 



EXCELLENT PD SOFTWARE FOR 800/XL/ 

XE. Large selection, low prices, and fast ser- 
vice. Send SASE: CLASSIC SOFTWARE, PO 
BOX 373, RUNNEMEDE, NEW JERSEY 08078 

(8/89) 

NEW 800/XL/XE SOFTWARE! An Interna- 
tional Collection of Shareware and Public 
Domain programs for the discriminating Atari 
owner. Every disk Guaranteed! Dependable 
world-wide service. Low prices! Free descrip- 
tive catalogue. BELLCOM, Box 1043-A, Peter- 
borough, Ontario, Canada K9J 7A5 (7/89) 

****** 

FREE CATALOG of one of the worlds largest 
and best organized collection of public domain 
software for the Atari 800/XL/XE. Over 300 
disks, fast dependable service, and very low 
prices! ComputerActive, Box 893-A, Clinton, 
OK 73601 (7/89) 

Atari 800/XL/XE public domain disks. High 
quality disks, fast service, free list. High qual- 
ity disks, fast service, free list. 1st Byte, PO Box 
130822, Tyler, TX 75713 (8/89) 

250+ DS/SD DISKS OF PD SOFTWARE FOR 
YOUR ATARI 8-BIT. PLEASE SEND $3 TO: 
AAPDS 6-18TH EDGEMORE, HUTCHINSON, 

KS 67502. (8/89) 

Public Domain Software— ST $4/Disk, 
800/XL/XE $3/Disk. Largest ST Selection. The 
Atari ST Book $16.95. Fast Service, Visa/Master- 
card, FREE catalog— Specify Computer. BRE 
Software, 352 W. Bedford, Suite 104-A, Fresno, 
CA 93711. (800) 347-6760 (1/90) 

DINO'S ROLL YOUR OWN 8-BIT P.D. 
SOFTWARE Super Selection, Great Prices, 
send SASE for listing, DINO'S RYO SOFT- 
WARE, 664 W Arrow Hwy, Suite 197, San 
Dimas, Calif. 91773 (7/89) 



****** 

Stop overpaying for P.D. Software!!! ALL 8-bit 
disks only $2.00 each, ST only $3 00. Quan- 
tity discounts, great selection. Specify com- 
puter. Send large SASE: MWPDS, 890 N. 
Huntington St., Medina, OH 44256 (7/89) 

STOP! LOOK! $4,000/month with computers. 
Homebased. Proven. No experience/capital. 
Guaranteed. Free details. MacKenzie, Box 
91181— PCC, Pasadena CA 91109 (7/89) 

AGAPE GAMES- 5 CHRISTIAN GAMES. 

KINGS GLORY Arcade like Adventure with 26 
mazes and a maze maker. BIBLE WORD 
SEARCHER with 30 puzzles and a puzzle gener- 
ator. Plus 3 games that teach the Books of the 
Bible. For Atari 8-bit (requires 48K + disk) 
$12.95-Daniel Sharpe, GPO 911, Chicopee, MA 
01021 (7/89) 

****** 

BATTERY RACKED UP RAMDISK. Never 
lose your memory, Boot from Ramdisk! No 
installation. Ramdisk cartridge plugs into Atari 
400/800 or XL/XE. 32K $99.95, 64K $129.95, 
192K $249.95 Certified check, Money order, 
VISA accepted. CANOE COMPUTER SER- 
VICES, 11006-155 St., Edmonton, AB, T5P-2N3 
Phone (403) 437-4619 (8/89) 

****** 

BEST PD DISKS/PRICES— fastest service— 
FREE bonuses— 8-bit/ST. Automatic DISK-A- 
MONTH program. Full disks less than $1.50 
each. Super sample disk with catalog $3- 50. 
Specify computer. PATNOR, POB 370782, El 
Paso, TX 79937. (8/89) 
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COMPUTER SOFTWARE SERVICE 7 
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This list is provided as a courtesy to our advertisers. ANTIC does not 
guarantee accuracy or comprehensiveness. 



Advertising 
Deadlines 



September 1989 

Insertion Orders: May 31 
Artwork: June 7 

On Sale: Last week of July 

October 1989 

Insertion Orders: June 30 

Artwork: July 7 

On Sale: Last week of August 

November 1989 

Insertion Orders: August 1 
Artwork: August 8 

On Sale: Last week of September 



SUPER BONUS PROGRAM 
on Antic Disk! 



You get even more value when you get the Antic 
disk... a Bonus Program that's too large a type-in 
program to (it in the magazine. 

Plus you get all 1 72K of this month's Antic programs 
on disk. Great 8-bit software without typing! 

Order your disk now! 
Phone toll-free: 
1-800-234-7001 

(Visa/Mastercard orders) 

Ask forADS789 




More affordable 
than ever... 

Subscribe to Antic with Disk for 



ONLY $29.95! 

Get 6 issues of Antic with \ 
disk for the super low price 
of $29.95. It's so much 
easier on your checkbook! 

Antic's disk is your best 
source of continued 8-bit 
software support. 



Subscribe now! 
Call Toil-Free: 1-800-234-7001 

Visa/Mastercard orders only 








BUY 










Name Company 






Address Pfcone 




SELL 




City/State/Zip 






MasterCard/Visa Number Expiration Date 






Signature Issuc(s) Ad to Appear 

Pnrlr»c#»H i< mv pavmmt tor S 




TRADE 




RATE: SI. 00 PER WORD— twenty (20) word minimum. 

BOLDFACE: Add $7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add $6.50 for one (1) line of six (6) stars ★★★*★* at top of ad. 
TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publishers approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September 1, 
1988 — December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 








SWAP 






Antic Classifieds 

Second Street, San Francisco. CA 940P 
Telephone (415) 95" 7 -0886 
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AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 



BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 



SAVE 25% TO 35% 



How To Order: 



Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C- disk only 

Example: 1A- is for "April 1983, magazine 
& disk 11 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 



Prices: 

1 To 5 If you order more 
Issues than 5 Issues 

Magazine & Disk $7.00 each $6.50 each 
Magazine only $ 3 . 0 0 each $2.75 each 
Disk only $5.00 each $4.75 each 

Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 

FOR ORDERS ONLY CALL TOLL- FREE 
(800) 234-7001 (7-5pm PST.) 

MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 



Back Issue Order Form 



Order # 



Selection 
A, B, or C 



Order # 



Total Issues 
Ordered: 



Selection 
A, B, or C 



Total Issues Ordered: 


1 to 5 


6 & over: 




No. Issues of Sel. A: 


x $7 ea. 


x $6.50 ea. 


= $ 


No. Issues of Sel. B: 


x $3 ea. 


x $2.75 ea. 


= $ 


No. Issues of Sel. C: 


x $5 ea. 


x $4.75 ea. 


= $ 



Total $ . 
Shipping & handling $ _ 
Amount enclosed $_ 



□ Check Enclosed □ VISA □ MasterCard 
Name 

Address 



City. 



State . 



Zip . 



Credt Card # 
Exp. Date 



Canada, Mexico and all other foreign add $1. 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2 % sales tax. 

Aftfir 

The ATARI Resource 



Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 



ORDER * ISSUE 

1 April 1983: Games— 3-D Maze, Voyeur (NoDisk) 

2 May 1983: Telecomputing— Microids, 

Tele Chess (NoDisk) 

3 June 1983: Databases— Stargazing, 

Dancin' Man (NoDisk) 

4 July 1983: Adventure Games — Dragonsmoke, 

Shoot-em-up Math 

5 August 1983: Graphics— 3-D Fuji, Keystroke 

Artist 

6 September 1983: Education— P/M Tutor 

7 October 1983: Sports Games— AutoCassette 

8 November 1983: Sound & Music— Air Raid, 

Casting Characters 

9 December 1983: Buyer's Guide— 

AUTORUN.SYS, Automate Player/Missiles 

10 January 1984: Printers— Pocket Calendars, 

Screen Dump 

11 February 1984: Personal Finance— TYPO, 

Gauntlet 

12 March 1984: International Issue— DiskRead, 

Poker Solitaire 

13 April 1984: Games— Risky Rescue, 

Math Wizard 

14 May/ June 1984: Exploring XL Computers— 

Escape from Epsilon, Scroll to the Top 

15 July 1984: Communications— AMODEM, 

BASIC Animation Secrets 

16 August 1984: Disk Drives — Horseplay, Recall 

17 September 1984: Computer Graphics- 

Graphics Converter, Olympic Dash (no Magazine) 

18 October 1984: Computer Learning— Bouncing 

Ball, Antic 4/5 Editor/Animator 

19 November 1984: Computer Adventures— 

Adventure Island, Advent X-5 

20 December 1984: Buyer's Guide— Inf obits, 

Biffdrop 

21 January 1985: Super Utilities— TYPO II, 

DISKIO 

22 February 1985: Finances— Home Loan 

Analyzer, Drum/Bass Synth 

23 March 1985: Printers— Kwik Dump, Font 

Maker 

24 April 1985: Computer Frontiers— Dot Matrix 

Digitizer, Speech Editor 

25 May 1985: New Super Ataris— Son of Inf obits, 

Arena Racer 

26 June 1985: Computer Arts— View 3-D, 

The Musician 

27 July 1985: Computer Challenges— Miniature 

Golf, Guess That Song 

28 August 1985: Telecommunications— Atari 

'Toons, Pro*Term 

29 September 1985: Power Programming— 

One-Pass Disk Copy 130, Crickets 



ORDER # ISSUE 

30 October 1985: Mind Tools— Graph 3D, GEM 

Color Cascade 

31 November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 
Management 

32 December 1985: Shoppers Guide— DISKIO 

Plus, Box-In 

33 January 1986: Atari Products are Back- 

Appointment Calendar, Dungeon Master's 
Apprentice 

34 February 1986: Printer Power— T-Shirt 

Construction Set, Forth Escapes 

35 March 1986: Practical Applications— Lunar 

Lander Constructor, Lie Detector 

36 April 1986: Computer Mathematics— Fractal 

Zoom, 3-D Fractals 

37 May 1986: 4th Anniversary— Digital 

Gardener, Molecular Weight Calculator 

38 June 1986: Summer Computing— Weather 

Wizard, Bomb Squad 

39 July 1986: Computer Arts— Amazing Card 

Shuffler, Graf con ST 

40 August 1986: Online Communications— 

Ultrafont, Floppy Filer 

41 September 1986: Weather— WEFAX Decoder 

(8-bit/ST), BASIC Tracer 

42 October 1986: Hard Disks— Video Stretch, 

TYPO ST 

43 November 1986: Personal Finance— Budget 

dataBASE, V- Graph 

44 December 1986: Shoppers Guide— Stepper 

Motors, Nuclear Waste Dump 

45 January 1987: Talking Atari— Talking 

Typewriter, Rebound 

46 February 1987: Word Processing— SF 

Fogger, Electric Charlie! 

47 March 1987: Dvorak Keyboard, 

Multi-AUTORUN 

48 April 1987: —Designer Labels, Taxman 

49 May 1987: 5th Anniversary— A-Rogue, Poker 

Slot Machine 

50 June 1987: Animation— Verbot Commander, 

Citadel 

51 July 1987: Print Anything— Ghost Writer, 

Your Net Worth 

52 August 1987: Atari Muscle— Sideways 

Spreadsheet, Diamond Dave 

53 September 1987: Work/Play— Mighty Mailer, 

Maximillian B. 

54 October 1987: Football Predictor— Antic 

Prompter (8-bit/ST), Spelling Checker 

55 November 1987: Practical Applications— 

Critical-Path Projects, WYSIWYG Cassettes 

56 December 1987: Print Holiday— P. S. Envelope 

Maker, Antic Publisher 



TERRIFIC SOFTWARE PRESENTS 

TWO NEW, SENSUOUS GAME TITLES 



Look out, Indiana Jones! 
Step aside, Bogie! 
Crash Garrett's in town! 



Don't wait 'till Sunday to catch-up on 
your favorite action comic — play 
CRASH GARRETT instead! 

No other adventure game is quite like 
this... 





L . — i 


r 
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Let ace flyer CRASH GARRETT escort 
you through Hollywood in the '30s to 
rescue sultry, sexy gossip columnist, 
Cynthia Sleeze, from the sinister Nazi 




mastermind Baron 
von Engel Krul 
and his cronies. 
Help CRASH stop 
this perverse Nazi 
spy-ring from kid- 
napping glamor- 
ous, American 
beauties to use as 
breeding stock for an Aryan race of 




superhumans. Be the voice in 
CRASH'S head as he encounters ad- 
venture after adventure with a whole 
group of wacky, depraved characters 
including Caleb Thorn, psychoanalyst 
to the stars, and Lotta 
Linebacker, a female 
wrestler who knows what 
she wants from a man! 

CRASH GARRETT is 
style and pizzazz — an 
animated comic book 
with a slick, continential 
look. It's about as much 
terror, intrigue and suspense you'll 
want from any game! 



Play Stir Crazy With Bobo 

Your idea of "doing time" will definitely change! 



Had a little too much violence lately? 
Still want fun and action? Well, grab 
your joystick and join poor Bobo in six 
of the most graphically amusing 
adventure games ever on disk. 




Bobo's in prison — INZEESLAM- 
MER — where he spends most of his 
time performing menial chores and 
planning his escape. Bobo's no penal 
pushover! 

Bobo starts his day feeding porridge 
to hungry, irritable prisoners. Don't 

CRASH GARRETT and STIR CRAZY with Bobo are licensed 
Terrific Software is a trademark of Antic Software. * Atari ST 




Finally Bobo makes his escape and 
hurtles off into the sunset, right onto 
electric train cables. Bobo needs some 
pretty fancy footwork to avoid the 
pulsating current! 



let him get too befuddled, or else he'll 
end up with the porridge bucket on 
his head. 

K.P.'s next. Speed 
is the key here. 
Don't let Bobo get 
buried underneath 
a pile of spuds! 

An exhausted Bobo 
tries to catch up on 
his beauty sleep, but 
is constantly interrupted by the relent- 
less snoring of his cell mates. 





Available for Atari ST* and 
Amiga® Computers at your 
favorite store. To order by 
phone, call 800-234-7001. 

CRASH GARRETT— $ 39 95 
STIR CRAZY with Bobo— $ 34 95 



Terrific Software, 544 Second St., San Francisco, 
CA 94107 (415) 957-0886 



trademarks of Infogrames. Terrific Software is the exclusive distributor of Infogrames products in North America, 
is a registered trademark of Atari Corp.; *Amiga® is a registered trademark of Commodore-Amiga, Inc. 
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